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Unterbrechungs- 
freie Stromver- 
sorgung 


So schnell und genau Computer auch ar- 
beiten mögen, so abhängig sind sie doch 
von einem wesentlichen Faktor: von einer 
unterbrechungsfreien Stromversorgung. Doch 
so selbstverständlich istes nicht, daß eine 
EDV ständig mit der nötigen Energie ver- - 
sorgt wird. Jedes Einschalten eines ande- 
ren Verbrauchers kann einen kurzzeitigen 
Einbruch des Stromflusses auslösen - 
und damit große Schäden in einem Com- 


Auch für den vielfach im Einsatz bewährten Commodore 64 erscheinen noch prakti- | Puterprogramm heraufbeschwören. 
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Urhehörrecht: 
Alle in „Compute mit“ veröffentlichten Beiträge sind urheber- 
rechtlich geschützt. Alle Rechte, auch Übersetzungen, vor- 


Tips & Tricks 
















Restore N für G-64 20 | beraten. 
ERS Reproduktionen jeder Art (Fotokopien, Micrefilm, Erfassung in 
Bereich für C-64 : 26 Datenverarbeitungsanlagen usw.}; bedürfen der schriftlichen 


Genehmigung des Verlags. Alie veröffentlichte Software wurde 
von Mitarbeitern des Verlages eder von freien Mitarbeitern 
erstellt. 

Aus ihrer Veröffentlichung kann nicht geschlossen werden, 
daß die beschriebenen Lösungen oder Bezeichnungen frei von 
Schutzrechten sind, 
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Bezugspreis: 

Einzelheft 2,80 DM 

Abonnement: Inland 30,- DM im Jahr {12 Ausgaben) 
Ausland: Europa 40,- DM 

ohne Kassetten! 







Autoren, Manuskripte: ' 

Der Verlag nimmt Manuskripte und Software zur Veröffentli- 
chung gerne entgegen. 

Sollte keine andere Vereinbarung getroffen sein, so gehen wir 
davon aus, daß Sie mit einem Honorar von 120,-DM pro abge- 
druckter Seite irn Heft einverstanden sind. Ä 


Bei Zusendung von Manuskripten und Software erteilt der 
Autor dem Verlag die Genehmigung zum Abdruck und Versand 
der veröffentlichten Programme auf Datenträger. 


Rücksendung erfolgt nur gegen Erstattung der Kosten. Zusen- 
dungen von Software zur Veröffentlichung sollten folgendes 
enihalten: 

Kopierfähige Kassette oder Diskette rait dem Programm (Com- 
puter-Bezeichnung), von Drucker erstelltes Listing oder Serie 
von Bildschirmfotes (keine Schreibmaschinenlistings), evil. 
Bildschirmfotos von einem Probelauf und ausführliche Pro- 
orammbeschreibung (Erklärung der Variablenliste, Beschrei- 
bung des Bildschirmaufbaues, Farbe, Grafik usw.). Für einge- 
sandte Programmunterlagen kann keinerlei Haftung übernom- 
men werden. ‘ 
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Ein Maschinensprachen-Monitor, ist ein 
sehr wichtiges Werkzeug für diejenigen, 
(Anfänger oder Fortgeschrittene) die in 
Assembler programmieren möchten. Da- 
mit wird es möglich die interne Arbeits- 
weise des Computers zu erforschen undin 
gewissem Sinne mit ihm auf Maschinen- 
sprachenebene zu kommunizieren, wie es 
2. B. in Basic üblich ist. 


Für die, die den Assembier nicht kennen 
soliten, empfehlen wir, bevor Sie sich mit 
den Befehien des Supermoni-64 befas- 
sen, die erforderlichen Kenntnissse in 
Fachbüchern. nachzulesen. 
Supermoni-64 ist völlig in Maschinen- 
sprache geschrieben und belegt den Spei- 
cherbereich von dez.49152 ($C000) bis 
dez.53247 ($CFFF). 


programme 


Für alle Eingaben benötigt Supermoni-64 
die hexadezimale Schreibweise. Bei Prüf- 
und Verschiebevorgängen wird von der 
höheren nach der unteren Adresse ab- 
gearbeitet z. B.: 

„T 5000 5FFF 8000 

Das erste Byte wird von $5FFF nach 
$8FFF kopiert, während das letzte Byte 
von $5000 nach $8000 kopiert wird. 


Befehls-Beschreibung des Supermoni-64 


Assemhler: 
Syntax: „A <Ant.adr. > <Beiehl > 
<Return> 
Beispiel: „A 4000 LDA # $00 
„A 4002 
Die Eingabe dieses Befehles erwartet eine 
Anf. adresse und den ersten Assembler- 
Befeh!. Nach dem Return wird diese Zeile 
(falls richtig!) angenommen und gleich di- 
sassembliert. Anschließend zählt der Pro- 
zessor diesen Befehl um die Byte-Länge 
weiter, und die nächste Ädressenausgabe 
erfolgt. 
Die Assembler-Befehle sind in mnemoni- 
sche Form von drei Zeichen, gefolgt, je 
nach Adressierungsart, von <>, <$> 
und dem Operand. Um von Assembler 
auszusteigen, nach der Ausgabe von z.B. 
A 4002, Return drücken. . 


Break Sei: 
Syntax: „B < Adresse > 

< Anzahl Durchläufe > 
Beispiel: „B 5002 0010 
Dieser Befehl arbeitet zusammen mit 
Quick Trace. Hier wird ein Breakpoint bei 
$5002 gesetzt und die Durchläufe auf 16 
begrenzt. 


Disassembler: 

Syntax: „D <Anf.-Endaresse > 
Beispiel: „D 4000 4009 

„D 4000 A3DF  LDA »#$DF 
„D 4002 A245 LDX #+$45 
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„D 4004 8D 16 03 STA $0316 
„D 4007 8E 17 03 STX $0317 


Damit kann ein Programmblock von An- 
fang bis Endadresse disassembliert wer- 
gen. Falls man nur eine Adresse eingege- 
ben hat, wird die betreffende Zeile ange- 
zeigt. Man kann mit dem Cursor nach 
oben oder unten, den ganzen Speicher di- 
sassembliert sichtbar machen. Zum Edi- 
tieren wird der hex. Wert geändert. Da- 
nach drücken Sie die Return-Taste. Zum 
Abbruch der Routine betätigen Sie die Re- 
turn-Taste zweimal. 


Memory-Dump: 

Syntax: „M <Anf.-Endadresse > 
Beispiel: „M CF40 CFAF- 

„MCFAO 48 54 68 44 EB 94 00 BAHT.D.... 
„M CF48 08 84 74 B4 28 6E 74 FA ....(... 
Dieser Befehl zeigt den Speicherinhalt mit 
jeweils acht Bytes, gefolgt von den umge- 
wandelten Daten in ASCH-Code. Sonst ist 
die Funktion wie beim Disassembler. 


Exit: 

Exit Supermoni-b4: 

„A 

Springt in Basic zurück, ohne daß die Vek- 


toren des Supermoni-64 verändert wer- 


den. Danach wird mit den Befehlen D, M 
oder den Cursor-Funktionen, die Wieder- 
benutzung des Monitors durch den IRQ 
möglich. 
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„E | 

Zum Gegensatz werden hier die Interrupt- 
Vektoren IRQ und BRK zurückgesetzt. Um 
Supermoni-64 wieder zu benutzen muß 
SYS 49152 eingegeben werden. 


Compare Memory: 
Syntax: „C <Anf.-Endadresse > verglei- 
chen <Anf.adr. > 


: Beispiel: „C 4000 AFFF CO0O 


Dieser Befeh! vergleicht den Speicherin- 
halt von $4000-$4FFF mit dem von 
$C000 bis $CFFF. Als Ausgabe werden 
die Adressen, die nicht gleich sind, ange- 
zeigt. Der Vergleich kann mit RUNY/STOP 
unterbrochen werden. 


Go Run: 

Syntax: „G < Adresse > 

Beispiel: „G 3000 

Starten des Maschinenprogrammes ab 
Adresse $3000. Wenn keine Adressenein- 


. gabe folgt, wird ab der Adresse gestartet, 


die gerade im Prozessor enthalten ist. 


Fill Memory: 

Syntax: „F<Anf,-Endadr.> <Hex.Wert> 
Beispiel: „F 4000 A2FF BB 

Füllt den Speicherbereich von $4000 bis 
$42FF mit dem Hex. Wert $BB. Man kann 
mit diesem Befehl sehr schnell Speicher- | 
blöcke auf Null setzen. 


Jump: 
Syntax: „J <AÄdresse Subroutine > 


Programme 


Beispiel: „J 3000 
Hier wird die Subroutine ab Adresse 
$3000 aufgerufen. Diese muß mit dem 
Befehl! RTS enden, der.es ermöglicht wie- 
der in den Supermoni-Bstrieb zu gelan- 
gen. 










































Load: 
Syntax: „L <Anf.adr. > Name‘ 

< Gerät-Nr. > 
Beispiel: „L 5000 "Test 
Lädt im Speicher ab Adresse $5000 ein 
File mit der Bezeichnung Test vom ange- 
gebenem Gerät (Bei Kassetten-Betrieb 
nicht erforderlich). Die Basic-Zeiger blei- 
ben bei diesem Ladevorgang unbeein- 
flußt. Das kann man gut mit dem Befehl 
M 0375 überprüfen. Hier wird dem Kas- 
settenpuffer angezeigt, wo der letzte gele- 
sene File steht. 


Veit: 
Wie Load. 


Saure: 5 | 
Syntax: „S <Anf.adı. > <End.adr > 
’Name‘ <Gerät-Nr. > 
Beispiel; „5 4000 5000 "Test‘ 
Speichert den Inhalt der Speicherzeilen 
von Adr. $4000 bis $4FFF unter dem Na- 
men Test auf das angegebene Gerät (bei 
Kassetten-Betrieb nicht erforderlich). 
NOTE: 1 
Man kann ein File, das mit Supermoni-64 
abgespeichert wurde, auch direkt laden 
mit: LOAD ’NAME', 1,1. 
Dadurch werden aber die Basic-Zeiger 
verändert. Deswegen muß man anschlie- 
ßend NEW eingeben, um eine Rückset- 
zung dieser Zeiger zu erwirken. Bei Save, 
Load und Verify im Supermoni-Betrieb ist 
dies nicht erforderlich. 


Printer: 

Syntax: „P <Return> 
<Monitor-Befehl> 

Beispiel: „P <Return> M C000 C010 

Damit wird der Drucker angesprochen. 

| Vorinitialisiert ist als Gerätenummer die 4. 

Zum Beenden wieder <P> eingeben. 


Quick Trace: 
Syntax: „Q <Ädresse > 





Beispiel: „A 5000 

Mit. diesem Befehl wird ieder einzelne Ma- 
schinenbefehl wie Walk, nur in Schnell- 
schrittmodus und ohne Qutputabgearbei- 
tet. Beim Erreichen eines Haltpunktes (bei 
Break Setfastgelegt) springter in den Ein- 
zelschrittmodus zurück. 


Transfer Memory: 

Syntax: „T <Anf.-Endadralt> 
<Anf.adr.neu> 

Beispiel: „T 5000 SFFF 8000 

Dieser Befehl verschiebt den Speicherin- 

halt von $5000 bis $5FFF nach $8000, 

ohne Umrechnung der Adressen. 


Branch Baleulate: 

Syntax: „O <Startadr. > <Zieladr. > 

Beispiel: „O 2004 2000 <Return > 
„O 2004 2000 FA 

Berechnet die Größe eines Sprunges. 


New Locater: 

Syntax: „N <Anf.-Endadr.neu > 
<Wert>> <Anf.-Endadr.alt> 
Beispiel: 

„N 2000 2E6D 6000 C000 CFFF 
„N 2FB5 2FFF 6000 6000 CFFF W 
Das erste Beispiel ändert alle Drei-Byte- 
Befehle. im Speicherbereich von $2000 
bis $2E6D, indem der entsprechende Fak- 
tor (Wert) $6000 zu der absoluten Adres- 
se, in den zwei Bytes die dem Assembler- 
Befehl folgen, addiert wird. Jede gefunde- 
ne absolute Adresse außerhalb der Inter- 
valie von $C000-$GFFF bleibt unberück- 
sichtigt. Außerdem, falls ein gültiger Op- 
code angetroffen wird, ist die Operation 
beendet mit der disassemblierten Ausga- 
be dieses Opcode. 


| Das zweite Beispiel sucht eine Ein-und 


Zwei-Byte-Adresse, von $2FB5 bis $2FFF 
und wird dann umgerechnet. 


UMRECHNUNGS-FAKTOR: 
Beispiel: von $C000 nach $2000 








Register Bisplay: 

Syntax: „R 

Beispiel: PC IRQ SR AC XR YR SP 
„CO4EC39132 20 00 00 F7 

Die Register werden angezeigt, z.B. beim 

Starten des Supermoni-54 durch den As- 

sempier-Befehl BRK. Es ist möglich die 

einzelnen Register zu verändern, indem | 

mittels Cursor der alte Wert überschrieben | 

wird und danach Return gedrückt wird. 


Walk Eode: 

Syntax: „W <Adresse > 

Beispiel: „W 5000 

Dieser Befehl führt auf Tastendruck den 
jeweils nächsten Maschinenbefehl aus 
und zeigt die Registerinhalte an. 


‚Durch Betätigen der Taste <J>, können 


Subroutinen in Echtzeit abgearbeitet wer- 
den. Wird auch hier keine Startadresse 
eingegeben, beginnt’W‘ bei der letzier: im 
Prozessor enthaltenen Adresse. 


Umwandlung Hexadez.: 

Syntax: „$ <Hex.-Zahl > 

Beispiel: 

„s 4142 16706 AB 0100 0003 0100 
0010 

Ein Hex.-Zahl wird in Dez, ASCil und Bi- 
när-Wert umgewandelt. Man kann bei die- 
ser Funktion, mittels Cursor oben/unten, 
die laufenden Anzeigen der Werte (Oben= 
<, Unten = >) sichtbar machen. 


Umwandlung Binär: 

Syntax: „% <Bin.-Zahl> 

Beispiel: 

„% 0100 0001 0100 0010 4142 16706 
AB 

Eine Binär-Zahl wird in Hex.Dez und AS- 
Cil Wert umgewandelt. 


Umwandlung Dezimal: 
Syntax: „a <Dez.-Zahl > 


ng 


die Differenz. von $C000 bis $2000 
$D000, $E000, $F000, $0000, $1000, 82000 


1 2? 3 4 
Beispiel: von $8000 nach $C000 
$9000, $A000, $8000, $C000 

1 2 3 
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4=>>>$4000 


5 6=>>>$6000 


programme_ 


Beispiel: Beispiel: „& 8000 SFFF < Return > Zwei Hex.-Zahlen werden voneinander 
„& 16706 4142 AB 0100 0001 0100 „& 8000 8 FFF ASODO subtrahiert (die zweite von der ersten). Die 
9010 Die Werte, die im Speicherbereich von | Subtraktion wird mit dem Zweikompie- 
Ein Dezimal-Zahl wird in Hex ‚ASCil und | $8000 bis $8FFF enthalten sind, werden | ment berechnet. 

Binär-Wert umgewandelt. Byte für Byte addiert und daneben ange- 


zeigt. Sound: 
Umwandlung ASCH: e: 
Syntax: „ <ASGCII-Zeich. > Adaitien: Aktiviert ein akustisches Signal. Sind die 
Beispiel: Beispiel: „+ 2222 3333 <Return > Eingaben richtig, wird ein Dauerton gene- 
„B42 66 0100 0010 „+ 2222 3333 5555 riert. Diese Funktion ist brauchbar, falls 


Ein ASCII-Zeichen wird in seinen Hex.,- | Zwei Hex.Zahlen werden addiert. 
Dez. und Binär-Wert umgewandelt. 


man bei einer längeren Operation nicht. die 
ganze Zeit vor dem Bildschirm warten wilı. 
Subtraktion: .) 

Beispiel: „— 5555 3333 <Retum> 


„5555 3333 2222 
Supermoni-64 verschieben ? 


Wie schon erwähnt belegt Supermoni-64 | Die nächsten Bytes erfordern die.direkte Änderung mit dem Befeh! M: 
den Speicherbereich von $C000 bis 


- Ghecksum:' 


Syntax: „& <Anf.-Endadr. > Damit wird der Dauerton disaktiviert. 


$GFFF Da aber viele Programme densel- | Adresse alt neu Adresse alt neu 
ben Bereich benutzen, empfiehlt es sich, | $2018 $05 $25 $2392 $CC $2C 
in einen anderen Bereich zu verschieben. | $202A 563 523 52649 $C5 $25 
Hier die Arbeitsvorgänge um Super-Moni | $2322 SCH $2F $2701 365 $25 


ab Adresse $2000 zu verlegen: $28A7 $c3 $23 
„1 6000°CFFF 2000 
Kopiert den Speicherinhalt von $C000- | Nachdem diese Operationen beendet worden sind, speichern Sie die neue Version _ 
SCFFF nach $2000-$2FFF, ohne Adres- | ab mit 
senänderung. 
„N 2000 2E6D 6000 C000 GFFF 
„N 2FB5 2FFF 6000 C000 GFFF W 
Berechnet (nachdem der Wert $6000 ad- 

- diert wurde) alle absoluten Adressen und 


die Tabellen-Vektoren des Supermoni-64. ! Ab jetzt muß natürlich das Programm mit SYS 8192 ($2000) gestartet werden. 


für Kassette: 

„S 2000 3000 "MONI $2000” 
für Diskette: 

„8 2000 3000 "MONI $2000” 08 





Befehls-Liste Supermoni-64: 
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Befehl Kommando Befehl Kommando 
Assembler A Register Display A 
Break Set B Save S 
Compare Memory C Transfer Memory T 
Disassembler D Verify Y 
Exit Monitor E Walk Code W 
Fill Memory E Exit to Basic X 
Go Run G Umwangi. ASCH ® 
Jump Subroutine J Umwandl. Dezimal # 
Load E Umwandl. Hexadez. $ 
Memory Display M Umwand!. Binär % 
New Locater N Checksum & 
Branch Galculate d Sound ON/OFF JH 
Printer p Adaition + 
Quick Trace Q Subiraktion - 


CSompube mi 


programme | | 


100 POKESZ280,0: POKESS2B1,0 _ 

105 PRINT" FORA=1TOS:4PRINT:NEXTIPRINTTAB (14) "SSUPERMONI-S4E" 

110 PRINTTAB(L2}"LIC) S. VALENTINDE" 

115 PRINT:PRINT:PRINTTAB(1L4) "BITTE WARTEN!” 

120 FORT=49152T0532475TEP1& 

130 FORI=OTO15: READA: S=S+A: POKET+1,A:NEXT: I=+1: READB: IFB< >STHEN1SO 

140 8=0: 1=0: NEXT: SYS491S2:END 

150 PRINT"FEHLER IN DATAZEILE NR. "PEEK (63) +FEEK (64) #256: STOP 

10000 DATA120,076,021,192,169,018,032,210,255,169,157,032,210,255,096,032,2044 
10001 DATAO21,253,032,024,229,169,223,162,197,141,022,003,142,023,003,173,1817 
10002 DATAO20,003,174,021,003,201,145,208,004,224,195,240,009,141,076,005,1687 
10003 DATA142,097 ,003,032,164,200,169,117,133,178,169,128,141,138,002,155,1946 
10004 DATA157,162,215,032,096,206,142,072,003,142,100,003,098,000,206,061,1685 
10005 DATAO03,208,003,206,060,003,032,163,197,162,086,169,042,076,077,201,1688 
10006 DATA169,063,072,210,255,169,000,044,169,017,141,004,212,032,165,197,1877 
10007 DATA1A9 ,046,032,210,255,169,000,141,078,003,141,086,003,141,100,003,1577 
10008 DATA162,127,154,032,156,200,201,046,240,249,201 ,032,240,245,162,056 ,2485 
10009 DATA221,144,207,208,019,141,073,003,138,010,170,189,181,207,133,251 ‚2275 
10010 DATA189,182,207,133,252,108,251,000,202,016,229,076,096,192,162,002,2277 
10011 DATA208,002,162,000,180,251,208,009,180,252,208,003,258,086,005,214,2204 
10012 DATA252,214,251,096,169,000,141,078,003,032,017,194,162,009,032,072,1724 
10013 DATA201 ,202,208,250,096,162,002,181,250,072,187,083,003,147,250,104,2402 
10014 DATA157,083,003,202,208,241,096,173,084 ,003,172,085,003,076,244,192,2022 
10015 DATA165,253,164,254,056,229,251,141,083,003,152,227,252,168,013,085,2476 
100i& DATAO03,096,167,000,240,002,169,001,141,087,003,032,219,199,052,165,1556 
10017 DATA197,032,240,192,032,049,200,144,024,032,231,192,144,127,032,089,1957 
10018 DATA193 ,230,253,208,002,230,254,032,047,201,172,086,003,208,110,240,2467 
10019 DATA232,032,231,192,024,173,083,003,101,253,133,253,152,101,254,153,2550 
10020 DATA234 ,032,213,192,032,089,193,032,231,192,176,081,052,174,192,032,2147 
10021 DATA179,192,172,086,003,2098,070,240,235,162,000,161 ,251,172,087 ,005,2220 
10022 DATA240,002,127,253,193,253,240,011,032,008,200,032,072,201 ,032,225,2123 
10023 DATA255 ‚240 ,042,096,032,246,199,032,177,201,240,030,174,086,003,208,2261 
10024 DATAO28 ,032,240,192,144,023,096,032,100,200,141,075,003,032,124,195,1655 
10025 DATA173,075,003,129,251,032,047,201 ,208,243,076,096,192,076,104,192,2098 
10026 DATA032,116,193,032,156,200,201,039,208,018,032,156,200,157,101,005,1844 
10027 DATA232,032,180,201,240,032,224,032,208,243,240,026,142,089 ,003,032,2156 
10028 DATA111,200,144,214,157,101,003,232,032,180,201,240,009,032,103,200,2157 
10029 DATA144,200,224,032,208,238,142,074,003,032,163,177,162,000,160,000,1777 
10030 DATA177,251,221,101,003,208,010,200,232,236,074,003,208,242,032,104,2502 
10031 DATA193,032,047,201,032,124,193,176,227,032,032,176,032,240,192,144,2093 
10032 DATAOQ13,160,044,032,196,192,032,111,194,032,225,255,208,258,052,171,2155 
109033 DATA197,208,138,032,0&1,201,032,008,200,032,072,201,032,201,205,072,1892 
10034 DATAOS2,207,174,104,032,230,194,1&2,006,224,003,208,020,172,077,003, 1868 
10035 DATA240,015,173,088,003,201,232,177,251,176,027,032,101,194,136,208,2256 
10036 DATA241,014,088,003,144,014,189,233,206,032,142,197,189,257,206,240,2377 
10037 DATAOOZ,O32,142,127,202,208,210,096,032,123,194,170,252,208,001 ,200 ,2250 
10038 DATA152,032,101,194,139,142,074,003,032,015,200,174,074,003,096,175, 1605 
10037 DATAO77,003,032,122,194,133,251,132,252,096,056,164,252,170,018,001,1951 
10040 DATA136,101,251,144,001,200,096,168,074,144,011,074,176,023,201,054,185% 
10041 DATA240,017,041,007,009,128,074,170,189,152,206,176,004,074,074,074,1657 
10042 DATA074,041,015,208,004,160,128,167,000,170,189,220,206,141,088,005, 1815 
10043 DRTAO41 ,003,141,077,003,152,041,143,170,152,160,003,224,138,240,011,16977 
10044 DATAO72,144,008,074,074,009,032,136,208,250,200,136,208,242,096,177,2068 
10045 DATA2S1,032,101,194,162,001,032,206,192,204,077,003,200,144 290,162, 220! 
1004& DATAOO3,192,003,144,241,096,169,185,246,206,141,084,003,185,054,207,2158 
10647 DATA141,085,003,169,000,160,005,014,085,003,046 ,084,003,042,136,208,1184 
10048 DATA248, 105,063,032,210,255,202,208,234,076,072,201,032,246,177,169 ,2550 
10049 DATA003,032,158,195,160,044,076,049,197,169,008,153,186,169,001,162,1742 
10050 DATA165,160,207,032,189,255,167,096,133,185,032,213,243,165,186,052,2452 
10051 DATA180,255,165,185,032,150,255,169,000,133,144,160,003,132,183,052,2178 








8 


ü | | Computs mip 


programme 


10052. DATA165,258,133,195,032,165,255,133,196,164,144,208,062,164,183,136,2570 
10053 DATA20B,235,166,195,165,196,032,205,189,169,032,032,022,231,032,165,2274 
10054 DATA255,166,144,209,038,201,000,240,024,032,022,231,032,225,255,240,2313 
10055 DATAO24 ,032,228,255,240,232,201,032,208,228,032,228,255,240,251,208,287& 
10056 DATA221,167,013,032,022,251,160,002,076,061,195,032,066,245,075,104,1706 
10057 DATA192,169,204,072,169,119,072,008,072,072,072,108,076,0053,141,075,1644 
10058 DATAO03,072,032,156,200,032,016,201,208,248,104,073,255,076,114,174,1984 
10059 DATAO32,032,176,174,086,003,208,013,032,240,192,144,008,032,200,175,1787 
10060 DATAO32,225,255,208,238,076,014,174,032,163,197,162,046,169,058,032,2101 
10061 DATAO30,200,032,072,201 ,032,008,200,169,008,032,250,200,169,005,032,1643 
10062 DATA171,195,032,072,201,032,004,172,234,234,160,008,162,000,161,251,2107 
10063 DATAO72,041,127,201,032,104,176,002,169,046,032,210,255,167,000,133,1769 
10064 DATA212,032,047,201,136,208,231,076,227,202,032,246,197,167,008,0532,2260 
10065 DATA158,195,032,171,197,032,200,195,169,0593,141,119,002,076,061,177,2003 
10066 DATAOS2,246,199,133,253,134,254,032,180,201,240,005,032,251,199,076,2465 
10067 DATA163,177,032,065,200,133,253,134,254,162,000,142,192,003,052,156,2028 
100648 DATA200,201,032,240,244,157,079,003,232,224,003,208,241,202,048,020,2554 
10059 DATA189 ,079,003,056,233,063,160,005,074,110,102,003,110,101,003,156,1427 
10070 DATA2O8 ‚246 , 240,233, 162,002,032,180,201,240,034,201 ,058,240,030,201,2508 
10071 DATAOS2,240,243,032,133,197,176,015,032,124,200,164,251,132,252,153,2356 
10072 DATA251,167,048,157,101,003,232,157,101,003,232,208,217,142,0B4,003,2108 
10073 DATA162,000,142,086,003,162,000,142,075,003,173,086,003,032,135,194,1398 
10074 DATA174,088,003,142,085,005,170,189,054,207,032,101,197,187,246,206,2086 
10075 DATAOS2,101,197,162,006 ,224,003,208,020,172,077,003,240,015,173,088,1721 
10076 DATAO03,201,232,169,048, 176,930 ,032,099,197,136,208,241,014,088,003,187& 
10077 DATA144,014,189,233,206,032,101,197,189,239,206,240,003,032,101,197,2323 
10078 DATA202,208,210, 240,006, 032,098,197,032,098,197,173,084,003,205,075,2060 
10079 DATAO03,208 ,127,032,049,200,172,077,003,240,047,173,085,003,201,157,1777 
10080 DATA208,032,032,240,192,144,001,136,200,208,111,152,042,174,083,003, 1958 
10081 'DATA224,130,168,208,003,176,003,056,176,096,202,202,138,172,077,003,2054 
10082 DATA208,003,195,252,000,145,251,136,208,248,173,086,003,145,251,160,2454 
10085 DATA0653,140,119,002,032,171,197,032,1976,192,032,111,194,169,032,141,1825 
10084 DATA120,002,141,125,002,165,252,032,148,197,142,121,002,141,122,002,1714 
10085 DATA1L65,251,032,148,197,142,123,002,141,124,002,169,007,135,178,0768, 1910 
10086 DATA1L04,192,032,101,197,142,074,003,174,075,003,221,101,003,240,013,1675 
10087 DATA104,104,238,086, 003,240 ,003,076,149,196,978,076,192,232,142,075,2012 
10089 DATA003,174,074,003,076,201,048,144,003,201,071,096,056,076,205,078,1549 
10089 DATA00Z 208,026 ,096,072,074,074,074,074,032,037,200,170,104,041,015,1302 
10090 DATAO7&,039,200,169,013,032,210,255,169,010,044,169,145,032,210,255,2028 
10091 DATA1L73,017,208,007,016,141,017,208,096,234,234,141,063,003,008,104,1672 
10092 DATAO41,239,141,062,003,142,064,003,140,065,003,104,024,105,001,141,1278 
10093 DATAO61 ,003,104,105,000,141,0640,003,169,128,141,072,003,208,031,032,1261 
10094 DATA164,200,032,221,253,216,104,141,065,003,104,141,064,003,104,141,1956 
10095 DATAOA3,003,104,141,062,003,104,141,061,003,104,141,060,003,173,020,1186 
10076 DATAO03,141,069,003,173,021,003,141,067,003,186,142,045,003,088,173, 1281 
10097 DATAOA2,003,041,016,240,003,074,079,192,044,072,003,0B0,051,173,060,1174 
10098 DATAOO3,205,091,003,208,107,173,061,003,205,070,003,208,099,173,074,1726 
10097 DATAOO3,208,091,173,095,003,208,083,169,128,141,072,003,048,018,078,1521 
10100 DATAO72,003,144,210,174,066,003,154,169,197,072,169,186,072,076,022,1787 
10101 DATA199,032,163,177,032,036,201,141,075,003,160,000,032,002,201,173,1647 
10102 DATA041,003,174,060,003,133,251,134,252,032,072,201,1689,056,141,078,1800 
10103 DATA003,032,022,194,032,228,255,240,251,201,003,208,003,076,104,172,2044 
10104 DATA201,074,208,077,169,001,141,072,003,208,070,206,095,003,206,074, 1828 
10105 DATAO03,165,145,201,127,208,058,162,083,076,091,192,169 ,000,240,019,1738 
10106 DATA173,092,003,174,093,003,141,094,003,142,095,005,169,064,208,002,1459 
10107 DATA169,128,141,072,003,032,180,201,240,015,201,032,208,110,032,085,1849 
10108 DATA200 ,032, 243,200 ,032,180,201,208,079,032,163,197,173,072,003,240 ,2275 
10109 DATAOSS,162,000,173,017,208,168,041,016,240,016,152,041,239,141,017,1686 
10110 DATAZOG,234,234,160,012,202,209,253,136,208,250,120,167,084,141,004,2&23 
10111 DATA220,142,005,220,173,014,220,041,128,009,017,141,014,220,159,223,1956 


a | Gompute mib 


programme 


10112 
10113 
10114 
10115 
1011& 
10117 
0118 
10119 
10120 
10121 
10122 
10123 
10124 
10125 
10126 
10127 
10128 
10129 
10130 
10131 
10132 
10133 
10134 
10135 
1013& 
10137 
10138 
101539 
10140 
10141 
10142 
10143 
10144 
10145 
10146 
10147 
10148 
10149 
10150 
10151 
10152 
10153 
10154 
10155 
1015& 
10157 
10158 
10159 
10180 
10161 
10162 
10163 
10164 
10165 
10166 
10167 
10148 
10169 
10170 
10171 





.DATA180,201,240,055,032, 


DATA162,197,141,068,003,142,067,003,174, 
DATA1L74,067,003,032,168,200,173,060,0053, 
DATA003,072,173,063,003,174,064,003,172, 
DATAO65 ,200,141,090,003,142,071,003,169, 
DATAO32,082,200,141,092,003,142,093,005, 
DATAO98,003,142,099,003,032,082,200,141, 
DATA200,141,081,003,142,082,003,032,180, 
DATAO087 ‚208,003 ,238,078,003,032,049,200, 
DATA192,144,019,172,078,003,208,026,177, 
DATA206 ‚208,006,032,196,192,076,104,192, 
DATA240,003,140,077,003,136,056,177,251, 
DATA237 ‚080,003, 144,070,136,173,081,003, 
DATA251,144,016,136,024,138,109,098,003, 
DATAO03,145,251,032,047,201,1368,016,250, 
DATA134,254,032,082,200,141,084,003,142, 
DATA200,133,251,134,252,096,032,065,200, 
DATAOZ2,082,200,133,253,134,254,096,165, 
DATAO74,074,074,074,032,039,200,170,104, 
DATAO32,210,255,104,076,210,255,024,105, 
DATAO9& ,162,002,181,250,072,181,252,149, 
DATAO9&,167,000,141,089,003,052,156,200, 
DATA176,008,032,156,200,032,103,200,144, 
DATAO96,076,076,192,032,116,193,167, 000, 
DATAOZ2,208,007,032,156,200,201,032,208, 
DATADU10,010,010,141,089,003,032,158,200, 
DATAO96 ,201 ,059,008,041,015,040,144,002, 
DATA250,076,101,192,167,145,162,195,141, 
248,199,165,251, 
DATAO03,208,158,165,251,141,147,002,165, 
DATA1698,032,186,255,032,192,255,162,004, 
DATAOO4,032,195,255,169,003,133,154,076, 
DATA220,208,241,141,061,003,142,060,003, 
DATAO72,201,177,251,037,015,200,032,047, 
DATAO32,103,200,144,008,162,000,127,251, 
DATA2O& ,075,003,0968,169,062,133,251,169, 
DATA251 ,208,009,230,255,230,252,208,003, 
DATA153,1977,104,162,046,032,030,200,169, 
DATA162,000,1897,118,207,032,210,255, 252, 
DATAO61,201,173,060,003,032,015,200,173, 
DATA201 ,173,067,003,032,015,200,173,068, 
DATAOZZ,250,200,076,104,192,076,095,192, 
DATAO82,200,141,068,003,142,067,003,032, 
DATA2OO ,032,016,201,208,248,240,2197,032, 
DATAO0s ‚032,000 ,200,032,207,255,201,0153, 
DATA162,101,160,003,032,189,255,168,032, 
DATA208 ,008,032,180,201,240,175,032,251, 
DATAO34 ,208,163,032,207,255,201,034,240, 
DATAOB1 ,144,240,176,145,032,180,201,240, 
DATA133,133,184,032,168,201,208,217,167, 
DATAOS3,208,012,169,251,166,253,164,254, 
DATAO7& ,240,002,169,001,166,251,164,252, 
DATA240,234,169,105,160,163,032,050,171, 
DATA165,192,076,104,192,032,246,199,032, 
DATA200 ,052,072,201,032,240,192,144,010, 
DATAO16,016,008,200,208,011,173,083,0053, 
DATA192,076,096,192,032,246,197,032,138B, 
DATA162,046,169,036,032,030,200,032,008, 
DATAOZ2,072,201,032,150,202,032,153,202, 
DATAO24,014,084,003,046,085,003,105,000, 
DATA165,252,166,251,141,085,003,142,084, 


066,003,154,120,173,0698,003, 1544 
072,173,061,003,072,173,062,1496 
065,003, 064,076,096,192,032,1255 
000, 141,092,003,141,093,003,1377 
076,104,192,032,219,197,141,1751 
079,003, 142,080,003,032,082,1221 


201,240,010,032,207,255,201,2010 
174,086, 003, 208,024 ,032,231,1656 
251,032,135,194,170,189,246,2236 
172,077 ,003,192,002,208,051,1917 
170 ,237,079,003,200,177,251,2200 
241 ,251,200,173,092,003,241,2078 
145,251,200,177,251,109,099,2151 
048,158,032,065,200,133,253,1770 
085,003,032,156,200,032,095,1665 
176 ,246,032,085,200,176,003,2281 
252,032,015,200,165,251,072,2356 
041,015,032,039 ,200,072,138,1378 
246,144,002,105,006,105,058,1937 
250,104, 149,252,202,208,243,2753 
201,032,240,249,032,124,200,1964 
007,170,032,103,200,144,001 1708 
141,089,003,032,156,200,201,1792 
015,024 ,096,032,145,200,010,1600 
032,145,200,013,089,003,056,118% 
105,008,096,032,180,201,208,1435 
020,003, 142,021,003,096,032,1748 
005, 252,240 ,034,165,154,201 ,2620 
252,141,148,002,169,004,170,2126 
032,201 ,255,076,117,192,169,2328 
104,192,165,154,201,003,240,2080 
096,141,075,003,160,000,032,1586 
201 ,206,075,003,208,240 ,096,2056 
193,251 ,208,105,032,047,201,206& 
063,133,252,169,005,096 ,250 ,2052 
238 ,096,003,096,152,072,032,2325 
032,076, 210,255,032,030,200, 1738 
224 ,028,208,245,160,059,032,2361 
061 ,003,032,015,200,032,072,1333 
003 ,032,015,200,032,036,201,1451 
032 ,065,200,032,243,200,032,2022 
036,201,141,075,003,032,156, 1382 
207, 255,201 ,032,240,249,208,2788 
096,160,001,132,186,167,000, 1870 
246,199, 173,073,003,201 ,083,2080 
199 ,032,168,201,240,041,201,2409 
011,145,187,230,183,200,172,2522 
014,032,103,200,041,031,240,2100 
000,133,185,173,073,003,201 ,2215 
032,216, 255,076,104,192,073,2508 
032,213, 255,165, 144,041,015,2187 
076,096,192,032,246,199,032,2177 
047 ,201,032,047,201,032,000, 1778 
152,208,021,173,083,003,048,1811 
018,006,032,015,200,076,104,1167 


202,076,104,192,032,163,197,2169 


200 ,032,234,202,032,176,202,1773 
032,072, 201 ,162,004,169,048,1764 
032,210,255,202,208,239,096, 1606 
003 ,032,072,201,165,252,032,2046 


Gompube mib 





9, 


programme. 


10172 DATA196,202, 165,251 ,170,032,072,201,138,041,127,201,032,008,176,010,2022 
10173 DATA169,018,032,210,255,138,024,105,064,170,138,032,210,255,159,000,1989 
10174 DATA133,212,040,176,202,169,146,076,210,255,032,072,201,166,251,165,2506 
10175 DATA252,076,205,189,032,005,203,176,065,032,072,201,032,008,200,032,1780 
1017& DATA141,202,076,104,192,162,004,1649,000,133,252,032,194,203,032,043,1957 
10177 DATA203,133,251 ,032,034,203,032,061,203,202,208,247 ,008,032,072,201,2122 
10178 DATAO40,096,032,1B0,201,240,015,201,032,240,011,201,048,144,011,201,1873 
10179 DATAOS58,176,007,041,015,096,104,104,024,096,076,096,192,133,254,165,1637 
10180 DATA252,072,165,251,072,006,251,038,252,006,251,038,252,104,101,251,2362 
10181 DATA133,251,104,101,252,133,252,006,251,038,252,165,254,101,251,133,2677 
10192 DATA251,169,000,101,252,133,252,076,032,194,203,141,085,003,072,072,2056 
10183 DATAOS2,072,201 ,032,072,201,104,032,015,200,032,072,201,104,170,169,1709 
10184 DATAO00,032,241,202,032,072,201,032,150,202,076,104,192,032,159,203,1950 
10185 DATAUS2,072,201,032,008 ,200,032,234,202,032,176,202,076,104,192,162,1957 
1018& DATAO15,169,000,133,251,133,252,032,194,203,032,043,203,052,188,203,2085 
10187 DATAO32,034,203,032,188,203,202,208,247,0976,072,201,074,038,251,038,2099 
10188 DATA252,096,032,136,200,201,032,240,249,096,169,015,141,024,212,169, 2264 
101897 DATA000,141,005,212,169,240,162,068,160,149,141,0058,212,142,001,212,2020 
10190 DATA140,000,212,076,101,192,000,032,000 ,200,076,235,197,032,231,203,1729 
10191 DATAO24,165,251,101,253,133,251,165,2532,101,254,133,252,076,013,204 2628 
10192 DATAO32,231,203,032,240,192,132,252,173,093,003,133,251,032,072,201,2262 
10193 DATAO32,008,200,0756,104,192,189,000,170,169,141,024,212,076,218,203,1993 
10194 DATAOO0,120,032,021,253,088,169,060,133,178,174,0686,003,154,165,115,1731 
10195 DATA201,230,240,149,108,000,150,032,231,203,032,049,200,032,072,201,2140 
10196 DATA140,000,140,084,003,140,085,003,032,240,192,144,027,172,086,003,1511 
10177 DATA208,022,024,177,251,109,084,003,141,084,003,152,107,085,003,141,1576 
10198 DATAO85,003,032,047,201,076,072,204,173,095,003,032,015,200,173,084,1485 
10199 DATAO03,032,015,200,076,104,192,173,100,003,208,004,165,178,208,003, 1684 
10200 DATAO7&, 129, 234,173,119,002,201,017,209,125,165,214,201,024,208,240,2536 
19201: DATA165,209,133,253,165,210,133,254,169,025,141,094,003,160,001 ,052,2147 
10202 DATAOS4, 206,201 ,058,240,026,201,044,240,022,201,036,240,018,206,094,2117 
10203 DATAO03,240,205,056,165,253,233,040,133,253,176,225,198,254,208,221,2865 
10204 DATA141,073,003,032,013,206,176,184,173,073,003,201,058,208,017,024, 1585 
10205 DATA165,251,105,009,133,251,144,002,230,252,032,200,195,076,244,204,2492 
10206 DATA201,036,240,026,032,201,205,032,111,194,169,000,141,078,093,160,1827 
10207 DATA044,032,019,194,1697,000,133,198,076,014,194,076,127,234,032,047,1571 
10208 DATA201,032,125,202,076,244,204,201,145,208,240,155,214,209,236,165,2866 
10209 DATA209 ,132,253,165,210,133,254,169,025,141,094,003,160,001,032,084 ‚2066 
10210 DATA206 ,201,038,240,026,201,044,240,022,201,036,240,018,2046,094 ,003,2036 
10211 DATA240,0721 ,024,165,2533,105,040,133,253,144,225,230,254,208,221,141,2657 
10212 DATAO73,003,032,013,206,144,003,076,129,234,173,073,003,201,058,240,1&61 
10213 DATAOOE ‚201 ,036,240,029,208,039,032,208,205,056,165,251,257,008,133,2050 
10214 DATA251,176,002,198,252,032,203,195,169,000,133,199,032,008,206,076,2131 
10215 DATA112,192,032,208,205,032,178,192,032,128,202,076,104,205,032,208,2138 
1021& DATA205,165,251,166,252,133,253,134,254,169,016,141,094,003,054,165,2457 
10217 DATA2S3,237,094,003,133,251,165,254,233,000,133,252,032,201,205,032,2478 
10218 DATA111,194,032,240,192,240,007,176,243,206,094,003, 208, 224,238,077,2485 
10217 DATAO03,173,077,003,032,171,195,162,000,161,251,142,078,003,1697,044,1664 
10220 DATAO32,067,201,032,022,194,076,104,205,162,000,161,251,076,135,194,1912 
10221 DATA166,210,032,215,205,166,244,232,232,232,134,173,134,254,162,000,2791 
10222 DATAL34,172,169,040,133,253,160,192,162,003,136,177,172,145,253,152,2455 
10223 DATA208,248,199,173,198,254,202,016,241,169,032,166,210,134,254,132,2835 
10224 DATA253,160,039,145,253,136,016,251,169,019,076,210,255,192,040,208,2422 
10225 DATA002,056,076,032,084 ,206,201,032,240,243,136,032,061,206,170,032,1829 
10226 DATAO61,206,133,251,134,252,167,255,141,100,003,133,204,165,207,240,2654 
10227 DATAO10,165,206,164,211,145,209,169,000,133,207,024,09&,052,084,206,2061 
10228 DATAO32,145,200,010,010,010,010,141,089,003,072,084,206,032,145,200,1349 
10229 DATAO13,087,003,096,177,253,200,041,127,201,032,176,002,009,064,096,1577. 
10230 DATAiS9,152,205,032,210,255,232,209,247,096,000,000,000,000,000,147,1973 
10231 DATAO17,032,032,018,032,032,032,032,087,085,080,067,052,077,079,078,860 



























































8 | Computbe mi 9 


programme___ 


10232 DATAO73, 045,054 ,052,032,032,032,066,087,032,032,083,04& ‚086 ‚065,076 ,895 

10233 DATA069 078,084 ,073,078,079,032,032,064 ‚002,069 ,003,208,00B ‚064 „009,752 
10234 DATAO48.034,069,,051 ,208,008, 064,009 ,064,002,067,051 ,208,008 064 ‚009,965 

10235 DATAOG4.002,069,179,208,008,064,009,000,034,068,051 ,208,140,068,000, 1172 
10256 DATAO17.034,068,051, 208, 140,068, 154,016,034,068,051 ‚208,008, 064,007, 1198 
10237 DATAO1&.034,068,051,208,008,064,009 ,098,019,120,169,000,033,127,150, 1150 
10238 DATA000,000 ,089,077, 145,146, 134,074,133,157,044,041,044,035,040,056,1195 
10239 DATAOB9 .000 ‚089,036 ‚036,000 ,028,138,028,035,093,139,027,161,157,158,1199 
10240 DATAO29 .035,157,139,029,161,000,041,025,174,105,168,025,035,056 ,08, 1232 
10241 DATAO27.035.036,083,025, 161 ,000,026,091,091,165,105,056,036, 174,179, 1263 
10242 DATA148, 173,041,000,124,000,021,156,109,156,168,105,041,085,152,019,147° 
10243 DATAOS2 017.165, 105,035, 160,216,098,090,072,038,098,148,13& 084 0GB, 1587 
10244 DATA2O0,084,104,068, 232,148,000,180,008,132,116,180,040,110,116,291,195° 
10245 DATA204,074.114,242,164, 138,000,170,162,162,11&,116,116,114,068,104 208% 
10246 DATA179.050,179,000,034,000,024,026,038,038,114,114, 136,200, 196,202, 1559 
10247 DATAOSS.072,040,068,162,200,013,032,032,032,032,080,,067 ,032 ,032 073, 1024 
10248 DATAOSZ OB1 ‚032, 032,093,082,032,065,067,032,088,082,032,089 ,082 ,032,77° 

102497 DATAOBS . 080,045 ,056 „067,068, 070,071 ,072,076 ,077 ,078,081,082,040 „OB, 1100 
10250 DATAOS7 088,044 ,058,059,036, 035,034 ,043,045,077,073,074 ,037 ‚058,069 ,897 
10251 DATAOB& 041 .062,255,255, 186,201 ,175,200,050,196,047,199,002,193,249 ,2797 
10252 DATA193 135,193, 156,198, 160,193, 186,201,176,195,076,199,160,198,080 ,2057 
10253 DATA201 202.203 ,006,193,176,198,042,204,012,195,010,196,137,201,116.2272 
10254 DATA202 244,202, 104,203, 237, 203,000, 204 ,069,202,096,192,060,202, 141, 2561 
10255 DATA203.055.,204.,033,204,186,201,022,204,025,195,096,192,096,192,251,2397 






de Action-Games KR Geschicklichkeitsspiele 
nie * Hr % % Anwendungsprogramme Ar Ar 
Hilfsroutinen %& 9% % Tips & Tricks u.v.m. 


Lassen auch Sie andere „Compute mit-Leser“ an Ihren Spielideen teilhaben und 
senden Sie uns Ihre selbstentwickelten Software-Unterlagen zu. 


Wird ein Programm zur Darstellung im Heft herangezogen, zahlt Ihnen der Tronic-Verlag ein 
Honorar von 120,— DM pro voll ahgedruckte Seite, 









Wir benötigen von Ihnen: 


| - einen Datenträger (Kassette oder 
Diskette] 


| - eine genaue Programmbeschreibung 











|- ein Listing (nicht unbedingt 
eriarderlich} 


- sowie einen ausreichend frankierten 
Rückumschlag 


Das Ganze senden Sie an: 
Tronic-Verlag GmbH, Postiach 41, 3444 Wehreta 





Li Gempuhe mib 













Die Erde wird von Außerirdischen bedroht 
und Sie müssen alle Angriffe abwehren, 
um die Erde vor dem sicheren Untergang 
zu bewahren. Dabei machen Ihnen vier 
Arten von Eindringlingen Ihren Abwenr- 
kampf äußerst schwierig. Die Phoenixe 
sind eine 3-er Phalanx von Vögeln, die 
beim Anflug Bomben auf Ihre Basis 
schleudern. Diver, die zweite Angriffs- 
gruppe der Außerirdischen rasen im 


REM 
REM # 
REM # GALAXY 
REM. # 
REM %* 
Rem # 
REM # 
REM 
REM 


IN JUNE '85 


SONO BGAnN®“ 
# 


PRINT "ES 


ILAXY 


Die Außerirdischen greifen an 


Bomben, Divern oder den Kamikaze- 


WRITTEN BY THOMAS SDESMANN 


POKESFZRO , Os POKEFTZS1,0: PRINT"LZ 
ErRerhprReRre INEN MOMENT" 





Sturzflug auf Ihre Basis und versuchen Sie 
zu rammen. 

Ab der 2. Runde haben Sie sich auch noch 
gegen Kamikaze-Raumschiffe zu wehren, 
die ebenfalls versuchen Ihre Basis durch 
Rammen zu zerstören. 

Zu Beginn des Spiels haben Sie 35 Ener- 
gieeinheiten zur Verfügung, die am unte- 
ren Bildschirmrand in Form eines Balkens 
angezeigt werden. Bei der Kollision mit 


BESBRNSENUHERNDERELEIRRRREIUANHEN 


ZKEFEHFeFE 


RHHHRSHHHRHERRESSHRINHEN 
EErUTSRRREREhRDBBRBIDETTE WARTEN SIE" 


LEERE 


programme 


für Commodore 64 








Raumschiffen verlieren Sie 5 Energieein- 
heiten und Ihr Energieschirm flammt auf. 


Ab der 3. Runde greifen auch die Mutan- 
ten an, die sich nach unten schlängeln. Er- 
reicht ein Mutant den rechten Bildschirm- 
rand, verlieren Sie wieder eine Ener- 
gieeinheit. Bei dem Verlust aller Energie- 
Einheiten ist das Spiel zu Ende. 


FORA=73575T031964 4 READBıI P=P+ EB: POKEA,DS NEXT 

IF P<>315088 THENPRINT’LEEERERRR Ip aFALSCHE DATAS 
EYS2B672: 8Y530870: EY323375 : 
Va553240:81=-84272:05=39732: C0=3r Al=0 

GOSUR?POOD: FORA=OTG1T: READB: AD=32758+8#B: FORC=SOTO?: READWE POKEAD-+C „WE NEXTSNEXT 
FORA=3SBLOTOISB40+1 1864-1: READWI PÜKEN „WENERT . 

POKEV+17,11 

FORA=OTDZS: READB: AD=34816+A#40+B: POKEAD , 95: POKEADT204809,, INT {RND (188) 
A3=49152rAx4: POKEAS ,AD- INT (AD/Z36) #256) ı POKEAS+1 , INT 1AD/Z565 : POKEAS+2 Ba 
POKEAS+3,BENEXT: BOSUBLOOOO 

FORA= 1707: FORB=1TD2: READR (A,B}s NEXT: NEXT 

EOSLEB1000: GOTD4005 

SYS29005: PÜKE150 ,O: POKE161 „O0: POKE162,0:5Y527038 

IFPEEK (494838) =SOTHENGBETOFOOHO 

GOTD4000 































1119: 5T0P 


SFIELFELDAUFBRU 

995 REM 

POKE211,0: PDKE214,21:5Y559732 

FRINT"EESABED": PRINT'BEBFGEH'" 

PRINT" EEE ITEEESTERSETAUREITAREEISAERT aBEe 2a aa IT"; 
PR i NT nu HF Dre ee Var na ET ES TE | sk „ H i 
FOKE211,35: FÜOKE214 , 21: 8YS858732: PRINT" EABCHERg" 
POKE211,35: PÜKE214 „22:1 3Y8597321 PRINT"IBERFORHE" e 
PRINT FA a I" 

RETURN 











Gompute mit an 


% 


programme 


1765 
1990 
19975 
2000 
2095 
2010 
2020 
2030 
2035 
2040 
2045 
2100 
297835 
29770 
2995 
rielsie) 
3002 
3003 
3010 
3015 
2025 
3025 
3030 
3035 


REM 

REP INITIALISIERUNG 

REM 

FPOKE49488 , 35: PRINT "LS" 

FOKESI+4, Ö: POKESI+S,8: POKESI+6 ,O: POKESI+11,0: POKESI+12,0:FOKESI+13,240 
POKESI+18, O0: POKESI+20, Os POKESI+24, 15: POKEV+21, 0: POKESI+1, 49 

POKEV+32, Ö: POKEV+33,0: POKEV+Z2, 216: FOKEV+ZB, 255: POKEV+34 „3: POKEV+35,7 
POKE49419, 2: POKE49420, 1: POKE47440, 323 POKE49364, 3 

FOKE49441 „223: POKE49442, 64: POKE49443, i91: POKE49444, 128: POKE49445,127 
POKE49452 ,2: POKE497463, 252: POKE49464, 3: FOKE49455, 251: POKE497456 ,8 
FOKEA9467 ,247 3 POKE49468, 16: POKE49469, 239: POKE49470, 32: PDKEA9471, 223 
RETURN 


REM SPRITE-KOORDINATEN 


POKEV , 105: POKEV+1 221: POKEV+2, 100: POKEV+F,, 100: POKEV+4 , 116: POKEV+5 ,112 
POKEU+&, O: FOKEV+B „SO: POKEV+10, O2 POKEV+12, oO 

PDKEV+,132: POKEV+7, 100: POKEV+16, OÖ: POKEV+21, 255: POKEV+30,0 

POKEZSBE2, 489: POKEZS83%, 49: POKEZS834, 49: POKESSESS, 49: POKEISB36, 55 
POKES5837 ,58:1 POKE3SBIR „52: POKES5839 ,51 

POKEV+39, &: PÜKEV+AZ, 1: POKEV+44, 143 PÜKEV+45, 7 

FOKEV+AS, 12: POKEA9416, 11 

IF CO=STHENCO=S: GOTIS050 

IF. CO=5STHENECD= 10: BGOTOS059 

IF CO=160THENCO=3 

POKEV+40, CD: FOKEV+41 „CD: PÜKEV+42,C0 

POKE49461, R{RU, 13: POKE49480, R{RU,S) : POKE49482 ,R{IRU,4) : POKE497491 ,„R{RU,2) 
RETURN 


REM 

REM RUNDE BEENDET 

REM 

POKEV+21 „OÖ: RU=RU+ 1: IFRU=STHENRU=Z 
SY829025: PRINT"@FTABLZTI m | fe 


PRINTER] | 7:5Y329005 

POKE34854 ,186+RU: POKES4855 ‚221+RU: POKESS334 ‚7: POKESSS3S, 7 

Si=PEEK (49493) ı S2=PEEK (49484) 

PO=PEEK (47488) ı 5YS28576&: BOSUB2005: GDSUBS000: POKEV+17 ,27: FÜKE4748B PO 
POKE49493,31: POKE49484 ,52 

IFPEEK (49488) >S0THENGOTD4100 

POKE49488 ,PEEK (49488) +5 

FORA=1TOPEEK (49488) s FOKESS218+A, 10: NEXT 

BOTOKO 

REM 

REM ENERGIE VERBRAUCHT 

REM 

FORA=0T01: IFPEEK (49410+A) =OTHENGSOTOSOSO 

POKE211 „PEEK (49412+A) sPOKE214 ,PEEK (49414+A) : 3Y858732: PRINT" " 

NEXT 
POKEV+21 ‚63: FORA=53T055: FORB=OT05: POKE3SB32+B , Az NEXT: FORC=OTDRO:NEXT=NEXT 
POKEV+Z1,0 

FORA=OTD2000: NEXTSPRINT"LLIILIIIA SPOKE49488 , 35: BDSUB10000: BOTOSO 
REM 

REM VORPROBRAMM 

REM 


10000 V=5324B: PRINTMEIS"TABCLA) "al. = Tom Haan 

109016 FRINT"ER" TAB (12) "BDIVER KAMIKAZE" 

109015 FRINT"L FHOENIX MUTANT" 

10017 POKEV+37 „2: PÜKEV+3B, 13 POKEV+SF „3: POKEV+40, 1: FOKEV+414 14 

10018 POKESI+1,5:POKESI+4 „O: POKESI+5,9: PDKESI+5,0: FOKESI+24,15 

10020 FOKEV+21 0: PÜKEV+ZE, 15: POKEV , 50: POKEV+1 , 105: POKEVY+Z, 128: POKEV+3,97 


Compute mi | 


10025 
10027 
10028 
19030 
10035 
10040 
10042 
10045 
10050 
10051 
10052 
10053 
10055 
100650 
10045 
10070 
10080 
10100 
19105 
' 34985 
34990 
34995 
35001 
35002 
350053 
35004 
35005 
3500% 
350907 
35008 
35009 
35010 
35011 
35012 
75013 
35014 
35015 
350165 
. 35017 
35018 
35019 
35020 
35021 
350272 
35023 
35024 
35025 
350285 
35027 
35028 
35029 
35030 


zen" d 
je Der Sm 2 


350372 
35033 
35034 
35035 
35036 
35037 
S5053B 


9/85 


programme 


POKEV+4 ,210: POKEV+5 , 97: POKEV +4 „38: POKEV+7 ,1053 POKEV+16,8 

POKEV+17 ,27:15Y829005: FORA=OTD1000: NEXT 

FORA=0103: FOKESI+4 ,0: POKESI+4,129 

FORB=OTO2: POKE3SS32+A, SI+B: POKEV+ZI, 2” (A+1)-1:FORC=OTD50: NEXT 

NEXT: IFA=0THENPGKES5832,50 

IFA=1THENFOKE3ISBIZHA,S6 

IFA=ZTHENPOKEFSBI2+A,58 

IFA=3STHENPOKEV+21 „7: POKEIS130 ,64: POKE3S131 „65: POKESS610,, 10: POKESS4611,10 
FORZ=O0T01000: NEXT: NEXT 

POKESI+TI1,0: POKESI+12,0:POKESI+13,240: POKESI+5,12:POKESI+1,3 
POKESI+11,335 FÜRA=100T020STEP-1: PÜKESI+S, ArNEXTIFOKESItII, 0: FOKESI+4,0 
PÜKESI+4, 1297 

8Y829025 3 PRINT " KISEEI" TAB (16) "WRITTEN" SPRINT"E"TAR(1) "BY" 
FRINT"E" TAB (12) "THOMAS BDESMANN": SYS27005 

FORA=0T01000: NEXT: SYS29025 

PRINT" REKEN: PRESS ANY KEY TO START PLAYING !!1":5Y529005 

RU=0: SC=0 

FOKE198B,0:WAIT19B,1:5Y527025: PRINT"L"POKEV+ZI, 0 


8928572: POKEV+17, 131: GOSUR2000: GOBSUBIO0G: RETURN 

REM s 

REM M-CODE DATAS 

REM 

DATA162,0,169,0,157,0,193,232,208,248,968,0,0,0,0,0,128,684,22, 16, 8,4,2 


DATA1,192,.48, 12, 3,192,40, 12, 3,0,0,1,4 254,2, 1,258, ö, 4, 254, 254,4,0, 254 
DATA4 2,254 a,2, 0.75, 2, 1, 144, 144, 144, 144, 194,144, i44, 144, 95, 2,048 ‚2, 1 
DATA4,2,2,8,1,2,8,0,2;, s, 255, 2,4,254, 2, 8,234, i, 75,254,0, 144, 144,144,144 
DATA144, 169, 149, 141, 0, 221, 169, 33, 141, 24,208, 189, 136, 141, 136, 3,5 169, ö, 133 


DATA139,169,136,133, 120, 180 0,169,32,145, 139, 154, 208, 251, 230, 140, 145 


DATA149,201,141 ,208,241,169,127,141, 14, 220, 167,51, 133, 1, 169, 6, 133, 1397 
DATA133,141,1697,208,133,140,159,1289, 133, 142, 162, 8,150,0,177, 139, 1a5, 141 
DATA135 ,208,249 ,2320,140,230,1432,202,208,242,1859, 55, 133, i, 169, 129, 141 
DATAI#4, 220, 6, 165, 211, 135, 142, 165, 214, 133, 143, 182, 0, 169, 0, 56,237,255 
DATA192, 141, 255, 192, 173, 255, 192, 48, S; 138, A, 4,280, 39, 169, ö, 192,133, 137 
DATAI89,1, 192, 133, 140, 189, 2,1#2, 201, 89 ‚208,3,76, 187, 112, 160, 0,254,2,192 
DATA177.139,32,18.113.144,7,189,2,192,160,0,145,.139,134,2,166,2,232,232 
DATA232,232,224,76,208,195,165,142,133,211,165,143,133,214,32,108,229 
DATA234,76,49,234 ,0,160,0,32,31,11%,177,243,133,141,177,139,32,18,113 
DATA144,4,169,32,145,139,189,3,192,208,19,169,40,157,3,192,189,0,192 
DATA24,105,40,157,0,192,144,3,254,1,192,189,0,192,208,3,222,1,192,222 
DATAO,192,189,0,192,133,139,189,1,192,132,140,160,0,177,139,201,32,234 
DATA208,4,169,86,145,139,76,43,113,0,0,0,0,0,0,24,201,867144,6,201,90 
DATA176,2,56,96,24,96,165,140,24,105,80,133,244,165,139,133,243,96,160 
DATAO,177,139,32,18,113,144,15,165,141,168,136,136,152,160,0,32,31,113 
DATA41,7,145,243,222,3,192,169,86,157,2,192,76,159,112,0,120,169,1,141 
DATA2SS,192,169,91,141,20,3,169,112,141,21,3,88,96,120,163,49,141,20 
DATAZ,169,234,141,21,3,88,96,169,224,141,2,220,173,86,193,208,97,173 
DATAO,220,41,2,208,6, 234,234 ,234, 234,234 ,234,173,0,220,41,8,208,3,76 
DATA224 ,113,173,0,220,41,4,208,3,76429,114,173,0,220,41,16,208,52,173 
DATA1,193,240,23,173,2,193,240,15,173,6,193,201,19,208,27,173,3,193,208 
DATA22,76,154,114,76,130,114,173,2,193,208,3,76,130,114,173,3,193,208 
DATA3,75,154,114,169,1,141,1,193,76,217,113,169,0,151,1,193,32,75,114 
DATA7S, 110, 113, 0,173, 16, 208, 21, 1,240,10,173,0 ‚208,201, 31, 208,5, 76, 2 
DATA11Z,169,B,141,0,193.228,0,208, 208,8,175, 16,208, 7,1,121, 16, 209, 
DATAF3,114,205,0,193,208,735,238,8,1753, 169,0,141,1,173, 169, FAT PR 141, 2 
DATA193,76,153,113,0,0,173,16,208,41,1,208,10,173,0,208,201 ,47, 208,3 
DATA76, 153, 113,1597,8, 141, Q, 193, 173,0, 208 „208,8, 173, 16, 208, 41, 254, 131 
DATA15,208,208,0 ‚208,32, 93, 114,2064,0,193,208,232 ‚206,8 „193, 169, 0,341 
DATAI, 193, 169, 255, 151,10, 193, 7E, ısz, i13, ö, Ö, 32, 73,145, 32, 167, 119, 173 
DATA1O, 193, 240, 11,169, Ds j4t, 10, 193, 96, 234, 234 „234,234, 234, 234,32,54,124 
DATA32,166,123,32,122,123, 78, 180, 114, 234, 234,169,1,141,2, 193, 169, 22,181 


Compute mib 


programme 


14 


35037 
35040 
Ss3041 
33042 
35043 
35044 
35045 
3504& 
35047 
So048 
33049 
5950 
35051 


"350852 


33033 
350534 
33055 
Bie1elaf- 
33937 
35038 
35059 
IVO 
35061 
35082 
35083 
35054 
350655 
35066 


35067 
35068 


35059 
35070 
35071 
315072 
353073 
35074 
35075 
35076 
33077 
35078 
330677 
35080 
35091 
35082 
33085 
35034 
35085 
ssoss 
33097 
3508 


| 35089 
35090 


350971 
35092 
35093 
35074 
35095 
ZROFE 
35077 
35078 


DATA&,193,174,8,193,142,4,193, 234,234 „234 234,234 ,76,204,113,169,1,141 
DATAS,193,169,22,141,7,193,174,8,193,142,5,193,234 ,234,234 ,234,234,76 
DATA204,113,0,0,238,9,193,173,9,193,201,2,240,3,76,16,115,169,0,141,7 
DATA193,162,2,189,1,193,240,62,189,5,193,133,214,1893,3,193,133,211,138 
DATA72,32,108,229,169,32,32,210,255,198,211,198,214,32,108,229,32,182 
DATA122,169,98,32,210,255,104,170,222,5,193,189,5,192,201,1,208,15,157 
DATAO, 157 ,1,193,157,5,193,164,211,169,32,133,39,136,202,208,186, 234,234 
DATA162,6,234,234 ,234 ,234 ,234,189,1,208,24,109,12,193,157,1,208,189,0 
DATA2O8,24,109,11,193,157,0,208,208,9,173,16,208,29,52,193,141,16,208 
DATA189,0,208,201,254,208,9,173,16,208,61,53,193,141,16, 209,202, 202,208 
DATA200,173,16,208,41,2,240,26,173,2,208,201,32,144,42,169,254,141,11 
DATA193,167,50,141,249,139,141,250,139,141,251,139,7&,130,115,173,2,208 
DATA201,32,176,16,169,2,141,11,193,169,49,141,249,139,141,250,139,141 
DATA2S1,139,173,3,208, 201,64,176,5,169,1,141, 12,193, 201,176,144,5,169 
DATA255.141.12,193,234,284,162,6, 159 ,18,193,201 ,255, 240,58, 202,202, 208 
DATN245,234.234,234,234, 234 234,173 „27 ,212,201,2,176,9, 169,,0,56,237,12 
DATA193,141,12, 193,173,27,212,201,254,144,23, 189,0,56, 237 11,192, 141 
DATA11,193,162.3,169,99,56,253, 249,139, 157 ,248,129, 202,208, 244,234 ,234 
DATAi62,4,189,19,193,208,100,189,18,193,208,95,173,27,212,205,53,193 
DATA176,87,32,159,116,234,234,234,176,8,169,255,157,24,193,76,5,116,169 
DATA1,157,24,193,169,1,157,19,193,169,5,141,19,212,169,45,141,15,212 
DATA169,0,141,18,212,169,129,141,19,212,187,1,208,157,11,208,189,0,20B 
DATA157,10,208,173,16,208,61,52,193,240,12,173,16,208,29,32,193,141,16 
DATA208,76,71,116,173,16,208,61,33,193,141,16,208,202,202,208,147,234 
DATA234,162,4,189,19,193,240,67,189,10,208,24,125,24,193,157,10,208,189 
DATA11,208,24,105,2,157,11,208,189,10,208,208,9,173,16,209,29,32,193 
DATA141,16,208,189, 10,208, 201 ,255,208,9,173,16,208,61,33,193,141,16,208 
DATA189,11,208,201,226,144,11,169,0,157,11,208,157,10,208,157,19,193 
DATA202,202,208,180,768,222,116,0,173,0,208,74,168,173,16,208,41,1,24 
DATA106,106,141,255,207,152,24,109,255,207,141,254,207,189,0,208, 74,168 
DATA173,16,208,61,11,193,208,6,140,253,207,76,208,116,152,9,128,141,253 
DATA207, 173,253, 207 ,205, 254 ,207,144,2,24,96,56,76,0,0,162,10, 76,236, 116 
DATA224,8,240,5,189,18,193,208,75,32,150,117,160,2,189,1,208,24,105,4 
DATA217,242,207,144,56,189,1,208,56,233,6,217,242,207,176,45,185,244 
DATA207 ,61,52,193,141,247 ,207,173,16, 208,61 ,52, 193,205, 247 ,207,208,25 
DATA189,0,208,24,105,8,217,240,207,144,14,189,0,208,56,233,8,217,240 
DATA207 ,176,3,32,62,117,136,208, 186 , 202,202, 208,168, 76,191,117,224,8 
DATA209,3,32,94,119,224,10,208,3,32,74,120,169,255,157,18,193,138,72 
DATA152,72,185,3,193,133,211,185,5,193,133,214,32,108, 229,169, 32, 32,210 
DATA255,104,168,104,170,169,0,153,1,193,153,3,193,153,5,192,224,10,240 
DATA24,224,8,240,22,169,4,157,39,193,152,72,138,74,168,169,53,153,248 
DATA1S9,104,168,1569,50,32,31,123,96,0,160,2,185,3,193,24,105,2,10,10 
DATA10,153,240,207,169,0,144,2,169,255,153,244,207 ,195,5,193,24, 105,6 
DATA10,10,10,153,242,207,136,208,220,96,0,0,162,6,189,18,193,201 ,255 
DATA209,45,222,39,193,208,40,138,74,168,185,248,139,24,105,1,153,248 
DATA139,201 ,56,208,19,173,21,208,61,53,193,141,21,208,16&9,128,1537,18 
DATA193,169,49,153,248,139,169,4,157,39,193,202.202,208 , 200,234, 234,234 
DATA162,6,187,18,193,201,128,208, 7,202, 202, 208,245, 76,16,112,96,0,0,0 
DATA169,48,141 ,2,2038,169,64,141,4,208,169,80,141,6,208,169,80,141,3,208B 
DATA141,7,208,169,92,141,5,208,173,21,208,9,15,141,21,208,173,16,208B 
DATA41,241 ,141,16,208,169,0,141,20,193,141,22,193,141,24,193,96,0,173 
DATAS8,193,208,119,173,27,212,201,2,144,1,96,169,1,141,27,212,169,0,141 
DATAY,208,173,16,208,168,41,239 141,16, 208,152,41,1,240,8,173,16,208 
DATA9,16,141,16,208,172,0,2098,41,254,24,105,32,141,8,208,144,8,172,16 
DATAZG8,9,16,141,154,208,173,21,208,9,16,141,21,208,169,0,141,49, 193,173 
DATA27 ,212,48,24,173,8,208,56,233,64,141,9,208,17&,8,173,16,208,41,239 
DATA141,16,20B,169,128,141,49,193,169,0,141,50,193,169,95,141,51,193 
DATA169,1,141,48,193,234,174,50,193,189,225,111,201,1434,208,14,169,0 
DATA141,48,193,173,21,208,41,239,141,21,208,96,173,9,208,24,125,225,111 
DATA141,9,208,189,226,111,141,52,193,173,49,193,208,9,169,0,56,237,52 
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Profi-Einsatz des C-54 nach Gehäuseumbau 


Pfiffige Köpfe, die die durch dauernden 
Einsatz des C 64 ständig mit dem Kabel- 
salat und der Unübersichtlichkeit am Ar- 
beitsplatz konfrontiert waren, haben sich 
Gedanken über evtl. Verbesserungsmög- 
lichkeiten gemacht. Das Ergebnis wurde 
in diesen Tagen der Öffentlichkeit vorge- 
stellt, ’ 

- Es handelt sich dabei um einen Gehäu- 
seumbau für den C 64 mit der Möglich- 
keit, zwei Diskettenlaufwerke und eine 
Datasette anzuschließen. Der Zusammen- 
bau dieses Umbausatzes ist denkbar ein- 
fach, so daß jeder Gomputerfreak die 
Möglichkeit hat, den Umbau selbst vorzu- 
nehmen. Wie auf dem Foto zu erkennen 
ist, wurde eine erweiterte Tastatur ver- 





Die MARCOM ee Gm in a gi 
zwei gute Nachrichten weiter 


wandt, die durch ein Spiralkabel mit der 
„Zentraleinheit“ verbunden wird. 

Im Terminaigehäuse besteht die An- 
schlußmöglichkeit für zwei Diskettenlauf- 
werke, Rechnerplatine, Netzteil usw. Wei- 
terhin haben Sie Ablagemulden für die 
Datasette, Cassetten oder Diskettenbo- 
xen. Eingebaut ist außerdem ein ther- 
misch geregelter Lüfter für die Disketten- 
laufwerke. Resettasten an der Vorderseite 
des Terminalgehäuses ermöglichen eine 
unkomplizierte Handhabung der Disket- 
tenlaufwerke und desRechners. Ein regel- 
barer NF-Verstärker mit Zusatzlautspre- 


cher sorgt für die Übertragung der Lade- 


geräusche und den akustischen Hinweis 
auf die Arbeit des Rechners. Der Einbau 


_report 


der einzelnen Komponenten erfordert kein 
größeres technisches Fachwissen und ist 
ohne Lötarbeiten möglich. alle notwendi- 
gen Handgriffe werden in einer mitgelie- 
terten Bauanleitung genauestens be- 
schrieben. Sämtliche Gehäuseumbauteile 
können auch einzeln bezogen werden. Der 
gesamte Umbausatz kann zu einem Preis 
von ca. 570,-- DM erworben werden. Wer 
sich für einzelne Komponenten interes- 
siert, sollte die neueste Preisliste und ent- 
sprechende Informationen anfordern bei: 
OSKAR-HUBERT MAURER 

electronic % design # studio 

Haingraben 23 

6309 Münzerberg 2 

Telefon 0.60 04/2737 





Die Preise für ELEPHANT-Disketien werden ab sofort gesenkt, 


um so einen qualitätsbewußten Käufer- 


Kreis noch rascher wachsen zu lassen. 
Wie hoch die Qualitätsmerkmale bei den 
Disketten Marke ELEPHANT-MEMORY- 


Angebotspalette an Qualitä 


Neben den bisher angebotenen sechs 
Sorten 5%4”-Disketten 48 tpi, vier Sorten 
5%4”-Disketten 96 tpi und drei Sorten 8”- 
: Disketten 48 tpiliefert MARCOM jeiztauch 
eine 3,5”-ELEPHANT-Diskeite 135 tpi 
(SS/DD/soft). 

Von weiterem Interesse dürfte daneben 
das Angebot von fünfzehn Sorten ELE- 
PHANT-Farbbändern für die Ausgabe- 
Einheiten von Computern sein. Jeder 
einzelne Artikel dieser hochwertigen Ver- 


brauchsmaterialien ist auf die besenderen- 


Anforderungen der jeweiligen Maschi- 
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SYSTEMS vom Verbraucher eingestuft 
wurden, zeigt sich nicht zuletzt an dem 


vielfach geäußerten Wunsch, aus diesem 


Kreis nach weiteren Verbrauchsmateria- 


erweitert. 


nen-Modelle genauestens abgestimmt. 


Deshalb bieten Sie die Gewähr einwand- 
freier Funktion und ein hervorragendes 
Schriftbild. Lieferbar sind ELEPHANT- 
Farbbänder für die Maschinen der Grup- 
pen 28 in Nylon, in voll kompatiblen Kas- 
setten für die Gruppen 205, 210, 213, 215 
und 225 in Multistrike-Ausführung und 
für die Gruppen 615, 616, 625, 635, 636, 


‚637, 650 sowie für Okidata 84/94 und für 


Sharp EL 7000 in Nylon, endios ge- 
schweißt. 
Letztiich ist das MARCOM-Programm 
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lien der gleichen Marke für die modernen 
Kommunikationssysteme. Diesen Wün- 
schen entsprechend hat MARCOM jetzt 
seine 


tsprodukten der Marke ELEPHANT erheblich 


noch um zwei ELEPHANT-Reinigungs- 
disketten - eine für Einkopf, die andere 
für Zweikopf-Laufwerke - und ein ALL-IN- 
ONE CLEANING-KIT erweitert worden, das 
alles enthält, was gebraucht wird, um 
den Computer sauber und frei von stati- 
schen Aufladungen zu halten: eine Spe- 
zialreinigungsflüssigkeit für den Bild- 
schirm, ein spezielles Kunststoff-Reini- 
gungsmittel für Computer-Gehäuse und 
Tasten sowie eine Spezial-Flüssigkeit zum 
Verhindern und Beseitigen von statischen 
Aufladungen. 


% 





PRIMA II! 


Es gibt wieder „GCompute mit“! Alles Gute 
zum neuen Start. Nur weiter so! 
Hans-Dieter Bluhm, Darmstadt 


Auch ich möchte von der Möglichkeit Ge- 
brauch machen, meine Meinung über die 
Zeitschrift „Compute mit“ kundzutun. Ich 
bin begeistert von dieser Zeitung, da es 
Programmiistings für den Schneider GPG 
464 gibt. Dies ist besonders lobenswert, 
da es für den GPG 464 bis jetzt sehr wenig 
Spiele zum Abtippen auf dem Markt gibt. 
Die Zeitschrift gefällt mir in dieser Aufma- 
chung sehr qui. 

Olaf Kammeier, $chernbeck 


Redaktion: 

Wir sind:über eine solche positive Reso- 
nanz unserer Leserschaft hoch erfreut. Ih- 
re Zuschriften bestärken uns in der Kon- 
zeption dieser Zeitschrift. Trotzdem wer- 
den wir ständig bemüht sein, Verbesse- 
rungsvorschläge und konstruktive Kritik 
zu berücksichtigen. 


C-16 Programme 


Warum gibt es im Monat nur ein Pro- 
gramm für den C-16 und nicht drei, wie 
das bei G-64, VG-20 und Schneider CPC 
464 der Fall ist? Der CPC 464 istauch erst 
im letzten Jahr auf den Markt gekommen, 
und es werden schon eine stattliche An- 
zahl von Programmen in Ihrer Zeitschrift 
veröffentlicht. Ich vermisse auch Tips & 
Tricks. Ich hoffe, daß die Redaktion meine 
Anregungen beherzigen und schnell rea- 
gieren wird. . Marek Blaszak, Marl 


Redaktion: 

Die Feststellung, daß im Monat nur ein 
Programm für den Commodore 16 veröf- 
fentlicht wird, beruht auf der Tatsache, 





Fran Leserecke + Meckerecke Poen 


daß dieses neue System wohl noch nicht 
sehr weit verbreitet ist. Wir würden mitSi- 
cherheit mehr Programme und auch Tips 
& Tricks veröffentlichen, wenn uns diese 
in größerem Umfang vorliegen würden. 
Hier sind alle C-16 Besitzer aufgerufen, 
uns doch Ihre seibstentwickelte Software 
für dieses Gomputer-System zuzusenden. 
Sobald uns Programme und Tips & Tricks 
in ausreichendem Maße vorliegen, wer- 
den diese bei einer Veröffentlichung na- 
türlich auch berücksichtigt. Eine gezielte 
Vernachlässigung dieses Systems durch 
die Redaktion können Sie jedoch aus- 
schließen. 


Super-Druck 


Als in Ihrer Ausgabe 7/85 von einem „Su- 
per-Druck“ die Rede war, checkte ich erst 
mal alle Listings durch, um zu sehen, ob 
Sie Ihre Versprechung auch wirklich hal- 
ten würden. Ich war angenehm über- 
rascht, als dies wirklich der Fall war. Die 
Zeiten, wo man stundenlang mit viel Zeit 
und Glück die Steuerzeichen entziffern 
mußte sind damit endgültig vorbei. Mit ei- 
nem Wort: SPITZE! 

Sven Serve, Hamminkeln 4 


Reaktion: 

Wir sind beruhigt, daß Sie sich sofort von 
der Qualität unserer Listings überzeugt 
haben und zu dem Ergebnis gekommen 
sind, daß alle abgedruckten Programme 
in einem einwandfreien Druckbild veröf- 
fentlicht wurden. Die Zeit der unleserli- 
chen bzw. schwach veröffentlichter Li- 
stings gehören tatsächlich der Vergan- 
genheit an. 


Adventure-Programme 


Endlich gibt es eine gute Zeitschrift, die 
auch Listings für die VC-20 Grundversion 
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druckt. Ebenfalis finde ich es stark, daß 
die Redakton sofort die Vorschläge, die in 
den Leserbriefen gegeben werden, an- 
nimmt und ausführt. 
Noch ein Vorteil Ihrer Zeitschrift ist, das ab 
Heft 7/85 alle Listings im Super-Druck er- 
scheinen. 
Wie wäre es mal mit einem Adventure für 
den VC-20, möglichst für die Grundver- 
sion? 
Wenn die Redaktion den VG-20 nicht ver- 
gißt, werde ich auch weiterhin „Compute 
mit“ beziehen. 

Carsten Staudinger, Mülheim 


Redaktion: 

Es ist erfreulich einen zufriedenen Leser 
vorstellen zu können. Natürlich wird die 
Redaktion auch weiterhin Software für 
den VC-20 veröffentlichen. Alle VG-20 
Besitzer werden in „Gompute mit” regel- 
mäßig gute Programme für Ihren Home- 
computer finden. Gerne würden wir auch 
ein Adventure für den VG-20 veröffentli- 
chen, aber leider liegt uns z.Z. nichts in 
dieser Art vor. Somit sind alle Leser und 
Besitzer eine VG-20 angesprochen, uns 
ein selbstentwickeltes Adventure zur Ver- 
öffentlichung einzusenden. 


Kaufgesuche 


Als unabhängiges Magazin für Anwender 
von Gommodore- und Schneider-Gompu- 
tern hoffte ich bei Ihnen Angebote über 
gebrauchte VC-64 zu finden. Bei über 1 
Million Anwendern müßte es doch eigent- 
lich dafür einen Markt geben. 


Redaktion: 

Direkte Verkaufsanschriften für ge- 
brauchte Computer liegen uns leider.nicht 
vor. Beachten Sie bitte den Kleinanzeigen- 
markt”in unseren Zeitschriften. Vielleicht 
ist dort ein passendes Angebot für Sie da- 
bei. 
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| | B _ report 
Neue Diskettenboxen für 3,5” und 5,25” Disketten 


Mit der DBOX 3502 für 25 Disketten 3,5” | nung am Arbeitsplatz sorgen. Die pfiffig } Rückwand ist leicht schräg nach außen 
und der DBOX 5252 für 50 Disketten | durchdachte DiskettenBOX besteht aus | gestellt und gibt den Disketten einen idea- 
' 5,25” erscheinen zwei neue Zubehörteile | einer Schale, deren Seitenwände nach | len Stand und die notwendige Bewe- 
zum Arbeitsgebiet Computer, die für Ord- ! vorn abgeschrägt sind. Die Vorder- und gungsfreiheit. Der Decke! ist mit dem Un- 
terteil durch ein Drehelement verbunden 
und gewährleistet ein leichtes Öffnen und 
Schließen. 
Zur Ausstattung gehören Trennregister 
mit eitkettierbaren Reitern, die Sie in un- 
terschiedlichen Positionen anbringen 
können. Für. das bequeme Handling mit 
den Disketten lassen sich die Register 
nach vorne und hinten bewegen. Vier 
rutschfeste Gummifüße geben der DBOX 
auf allen Abstellflächen einen sicheren 
Stand. An der Rückseite befindet sich eine 
Handmulde für den leichten und sicheren 
Transport, 
Das Material istaus schlagfestem, antista- 
tisch behandelten Acrylglas. In der DBOX 
sind Ihre Disketten und die darauf befind- 
lichen Daten sicher vor Staub und Ver- 
schmutzung aufbewahrt. 
Durch die elegante Form und die Farbe 
umbra-braun paßt die DBOX zu allen 
Computer-Arbeitsplätzen. 








Gesehen bei: DAZU Produktveririeb GmbH, Spaldingstr. 1, 2000 Hamburg 1 


Unterbrechungsfreie Stromversorgung | 
Gesehen bei: 

Die Oldenburger Firma MICRO CONSULT hatjetztein Gerätauf Eckhard Koch, Garl-Eggers-Weg 7, 2900 Oldenburg 
den Markt gebracht, das das scheinbar grundtose Abstür- j 

zen eines Computers verhindert: Die USV 180 R hält, zwi- A A er 
schen Steckdose und EDV plaziert, die Spannung am Gom- er 
puter für mindestens zehn Minuten bei 180 VA Last auf- 
recht, nachdem ein Stromausfall.eingetreten ist. Der USV 
180 R eigene Rechteckausgang (220 Volt) hat gegenüber 
dem gebräuchlichen $inusausgang die Vorteile eines hö- 
heren Wirkungsgrades, einer extrem niedrigen Abwärme 
und einer einfachen Regelung der Ausgangsleistung in 
weiten Grenzen. Zudem hat die USV 180 R die Vorteile, eine 
Umschaltzeit zu benötigen {im Gegensatz zu herkömmli- 
chen umschaltenden Geräten), den Wechselrichter 
dauernd in Betrieb zu halten, die Ausgangsspannung im- 
mer netzsynchron zu halten und keine Phasensprünge zu- 
zulassen. Die Unterschiede zu bisher bekannten Schutzge- 
räten - auch zu den vom Werk in die Computer eingebau- 
ten - sind also offensichtlich. 


DATENTECHNIK 


. Öffaungszeiten: 
o-Fr: Uhr: 





“eg 030-2520150/60 ° ° ... Ba:10418. Uhr - 
fe ie je ale le ee 





Er er 


u = | GSempute miP n 


1 


Programme 


350979 
5100 
35161 
35102 
55103 
33104 


' 35108 


3=10& 
35107 
3531089 
33109 
35110 
35111 
s5112 
35113 
35114 
35115 
J3511ö 
35117 
33118 
35117 
35120 
35121 
35122 
35323 
35124 
35125 
25124 
35127 
35128 
35129 
35130 
35131 

35132 
35133 
35134 
33133 
35156 
35137 
35138 
35137 
35140 
sSs141 

35142 
353143 
35144 
33145 
35145 
35147 
353148 
35147 
35150 
35151 

35152 
35153 
331534 
35155 
353156 
35157 
35158 


‚DATA193,141,52,193,173,8,208,24,109,52,193,141,8,208,206,51,193,208,12 


DATA189,227,111,141,51 „193,232, 232, 232,142, 50,193,173,49, 193, 209,38.173 
DATA16,208,41,15,208,8,173,8,208, 208,3,76,207,118,173,16,208,41,16,240 
DATA16,173,9,208, 201,254, 234,208,8,172,16,208,41, 239 ,141,16,208, 173,49 
DATA173,240,0,173,16,208,41 ‚16,208,13,173.8, 208,208,8,173,16,208,9,16 
DATA141,16,208,76,125,119,0,185,5,193,208,1,96,159,6,141,53,193,173,252 
DATA139,201,56,208,5,167,100,32,31,123,169,53,141,252,139,96,173,252 
DATA137,201,56,240,36,206,53,193,208,31,169,6,141.53,193,173.252,139 
DATA201,55,208,16,173,21,208,41,239,141,21,208,169,56,141,252,139,76 
DATA166,119,238,252,139,96,173,83,193,240,3,76,103,120,17%,64,193,208 
DATASS,173,27,212,201,2,144,3,76,103,120,169,1,141,64,193,169,80,141 
DATA11,208,173,16,208,41,223,141,16,208,173,0,208,234 ,234,141,65, 193 
DATA173,21,208,9,32,141,21,208,169,16,141,10,208,169,0,141,65, 193,234 
DATA174,66,193,189,193,111,201,144,208,14,169,0,141,64,193,32,80,120 
DATA96,234 ,234,234 ,234,96,173,11,208,24,125,193,111,141,11,208,173,10 
DATA208,24,125,194,111,141,10,208, 173,10, 208,201 ,2,176,8,173,16,208,9 
DATAZ2,141,16,2068,173,10, 208,201,254,144,8,173,18, 208,41, 223,141,16,208 
DATA206,65,193,20B,12,232, 232,232,142,66,193,189, 192,111,141,68,193,76 
DATA103,120,0,185,5,193,208,1,96, 169,6,141,67,193,169,53,141,253,139 
DATA173, 11,208, 201,224, 240,5,169, 150,32,31,123,96,173,.253,139, 201,58 
DATAZ40, 36, 206,67,193,208,31,169,6,141,67,193, 173,253, 139.201 ,55,208 
DATA1i6,173,21,208,41,223,141,21,208,169,58,141,253,139,76,146,120,238 
DATA253,139,76,116,122,0,32,33,121,169,0,141,0,206,169,128,133,139,169 
DATA129,133,140,169,208,133,141,169,133,133,142,169,232, 133,247, 169,134 
DATA133,248,162,10,160,8,152,72,138,72,162,0,160,0,177,139,61,176,111 
DATA240,7,177,141,29,184,111,145,141,232,224,4,208,237,177,139,61,176 
DATA111,234,234,240,7,177,247,29,184, 111,145, 247,232 ,224 ,B, 208, 235,230 
DATA137,209,2,230,140,230,141,208,2,230,142,230,247,208,2,230,248,104 
DATA170,104,168,136,208,183,202,208,178,169,8,133,139,169,128,133,140 
DATA173,0,206,201,23,240,10,169,23,141,0,206, 162,25, 76,184,120,96,0,169 
DATAO,133,139,169,133,133,140, 160,208, 169,0,145, 139,200, 208,249 ,230,140 
DATA155,140,201,136,240,3,76,43, 121,96,0,162,30,189,216,138,32, 81,121 
DATA157,217,138,202,208,244,76,93,121,0,201, 64 ,240,6,201,65. 240,2,169 
DATAS2,96,0,238,69,193,173,49, 193,41,1,208,3,32,150, 121 ,162,0,189,195 
DATA137,32,81,121,157,194, 137,232.224 „22,208, 242,173,69,193,41,1,240 
DATA3,32,219,121,162,32,189, 158,136, 32,81,121,157,159, 136, 202, 208,244 
DATA7&6,33,122,0,162, 123,189,54,138, 32,81,121,157,95,138, 189,55,138,32 
DATAB1,121,157,96,138, 128,56,233,41, 170,208, 231 ,162,2,189, 54,138,32,81 
DATA121,157,74,138, 202,208, 244, 162,117,189,155,137,32, 81,121,157,194 
DATA137,189,154,137,32.81 ‚121,157,195,137,138,56, 233 ‚39,170,208, 231,96 
DATA162,117,189,59,137,32,B1, 121,157,98,137,189,58,137, 32,81,121,157 


DATA97, 137, 138, 56, 233, 29, 170, 208,231, 162, 2, 189, 56, 137, 32, 81, 121, 157, 26 


DATA137,202,208,244, 162,123,189, 150,136,32,B1,121, 157,191,136,189,149 
DATA134,32,81,121,157, 190,126,138, 54,233,41,170,208, 231,96,0,173,232 
DATA136,201,65,208,5,169, 32,141,191, 136,173,233,137,201.64, 208,5,169 
DATAZ2,141,194,137, 159,136, 141 „74,122,169,216,141, 83,122,141,86,122,162 
DATA160,189,0,138, 201 ,64,208,9. 169, 10,157,0,218,157,1,218,232, 232,208 
DATA237,173,74,122,201, 138,240,12, 238,74,122,238,83,122, 238,86,122,76 
DATA72,122,96,169,10, 55,96.0,234 ‚234 ,234,238,70,193, 173,70,193,201,4 
DATA240,3,76, 179,122,169, 0,141,70,193,32,63, 121,238,71,193,173, 71,19% 
DATA205,72,193,208B, 28,169,0, 141,71,193,173,72, 193,205,74,193,176, 15,238 
DATA73,19%,162,64,142, 160,136, 232,142, 161,136,32,228,122,76,109, 122,164 
DATA211,177, 209,201, 64,240,5, 201,65,240,1,96,169,32,136, 145. 209,200, 145 
DATA209,200,145,209,32,29,123,104,104,104,170,169,0.157. 1,193,157,3,193 
DATA157,5,193,7&,11,115, 0,162,2,189,3,193,133,211,189,5,193,133,214.138 
DATA72,32,108, 229, 104, 170,164 211,177,209,201, 64,240,8,201 ,65,240,4,202 
DATA209,224,96, ‚169 ,32,136,145, 207,200, 145,209 ,200,145,209,169 ,0,157.1 
DATA193,157,3,193,157.5, 193,169 ,15,24,109,75,193,141,75,193,144, 3,238 
DATA76,193,138,72,182,72,173,76,193,133,98,173,75,193,133,99,162,144 
DATAS&4,32,73,188,32,221,189,162,0,160,0,189,1,1,240,26,24,105,139,153 


Somputhe mip 
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35157 
35150 
35161 
‚35182 
35165 
35164 
35155 
S3s51löd 
33187 
35158 
351659 
35170 
353171 
55172 
35173 
35174 
47785 
47790 
499953 
50000 
50010 
50020 
50030 
50050 
39053 
SO0U&0 
s0055 
50070 
50075 
SO030 
s00853 
50070 
50075 
50100 
50105 
50110 
s0115 
‚249785 
534790 
54995 
55000 
35005 
35010 
55050 
55055 
35059 
535100 
55105 
55110 
5150 
55155 
33200 
s3205 
SI250 
33235 
35260 
35300 
55305 
535310 
33509 
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programme 


DATA11,136,200,24,105,35,153,11,136,200,232,169,7,153,9,216,153,10,216 
DATA76,70,123,32,145,123,104,168,104,170,96,162,4,160,0,136,208,253,202 
DATA208, 250 ,76,228,122,162,2,189,5,173,201,21,208,10,169,0,141,4,212 
DATA169,129,141,4,212,202,208,234,96,169,0,141,18,212,167,10,141,19,212 
DATA1649,3,141,15,212,169,129,141,18,212,96,173,81,193,208,103,173,30 
DATA208,168,41,1,240,12,32,238,123,173,80,193,56,233,5,1431,80,193,173 
DATA247,138,201,64,208,8,169,32,141,247,138,206,80,193,173,80,193,1& 
DATAS,169,0,141,80,193,174,80,193,169,8,157,154,219,232,224,36,208,246 


'DATA173,80,193,208,3,76,110,124,96,169,1,141,81,193,169,57,141,248,139 


DATA159,0,141,18,212,169,13,141,19,212,169,2,141,15,212,169,129,141,18 
DATA212,169,64,141,82,193,96,206,82,193,208,15,169,57,141,248,139,169 
DATAO,141,30,208,169,0,141,81,193,173,30,208,141,30,208,169,105,56,237 
DATA248,139,141,248,1397,96,165,161,201,16,240,1,96,169,1,141,86,193,234 
DATAZ34 „234 ,173,16,208,41,1,240,17,238,0,208,238,0,208,173,0,208, 201 
DATABS,208,3,76,110,124,96,206,0,208,205,0,208,173,0,208,201,1,208,3 
DATA7&6,110,124,96,104,104,104,104,169,255,141,2,220,96,0 

REM 

REM DATAS FUER ZEICHEN 

REM 

DATAS6,0,0,0,3,3,0,0,0 

DATA87,0,0,0,12,12,0,0,0 

DATABB,0,0,0,48,48,0,0,0 

DATAS9,0,0,0,172,192,0,0,0 

DATA129,0,0,0,3,6,15,15,31 

DATA130,0,31,255,224,0,128,249,255 

DATA131,0,248,255,7,0,1,31,255 

DATA132,0,0,0,192,96,240,240,248 

DATA133,31,31,63,63,63,63,63,0 

DATA134 , 255,250, 250,95,87,247,255,0 


'DATA135,255,183,85,234,235,95,255,0 


DATA134,248, 248, 252,252, 252,252,252,0 
DATA137,170,170,85,127,127,127,127,127 
DATA138,170,170,64,64,64,64,64,64 
DATA128,170,170,85,255, 255,255, 258,255 

DATA139,192,0,0,0,0,0,0,0 

DATA64,2,10,43,43,42,12,48,0 

DATAS5,160,168,186,186,170,12,3,0 

REM 

REM DATAS FUER SPRITES 

REM 

DATAO,0,0,0,0,0,0,0,0. 2 
DATAO,0,0,0,4,0,0,21,0,0,42,0,0,432,0,0,230,192,3,213,240,15,213,252 
DATA15,234 ,252,0,63,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
DATAO,2,0,0,2,32,0,245,192,15,245, 240, 63,5,60,60,42,60,0,170,60,0, 150 
DATA48,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,04,0,0,0,0,0,0 


DATAO,0,0,0,0,0,0 
DATAO,1298,0,8,128,0,3,95,0,15,95,240,60,160,252,60,168,60,60,170,0,12,10,0 
DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,05,0,0,0,0,0,0,0,0,0,0,0,0,0 
DATAO,0,0,0,0,0,0 
DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,64,0,0,64,128,0,0,128,0,0 
DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
DATAO ,0,0,0,0,0,0,0,0,0,0,0,0,050,0,0,0,0,0,0,0,840,0,8,0,0,0,0 
DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
DATAO,0,0,0,0,0,0,0,0,0,60,0,0,195,0,0,195,0,0,0,0,0,0,0 
DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,9,0,0,0,0,0,0,0,0,0,0,0 
DATAO,0,0,0,0,0,0 
DATAO,0,0,0,0,0,0,60,0,0,255,0,0,195,0,3,0,192,3,0,192,0,0,0 
DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
DATAO,0,0,0,0,0,0 
DATAO,0,0,0,51,0,3,0,48,0,0,0,12,0,12,0,0,0,12,0,12,0,0,0 


GSomputs mib | | » 


tips & tricks 


55355 DATAO,0,0,0,0,0,0,0,0,0,0,040,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 | 
55360 DATAO.,0.0.0,0.0.0. | 
55405 -DATAO,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,168,0,50,170,48,14,238,192,2,170,0 
$5410 DATAZ,3,0,0 
55415 DATAO,0,0,0,0,0,0,0,0,0,0,050,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 | 
55450 DATAO,&3,0,0,255,192,3,192,240, 15,0.60 - | 
53455 DATA12,4,12,12,21,12,60,42,15,48,42,3,48,230,195,3,213,240, 15,213,252 
55460 DATA15,234,252,0,63,0,0,0,0,0,0,04,0,0.0,0,0,0,0,0,0,0,0,0s 0,0,0,0,0,0,0 
55500 DATAO,0,0,0,0,0,0,0,0.0,17,0,3,8,48.15,234, 252,15,234,252,15,42.60 

55505 DATA15,42,60,12,42,12,12, 8,12,12,34,12,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0 

55510 DATAO,0,0,0,0,0,.0,0,0.0,0,0,0 

597985 REM 

59990 REM DATAS FUER STERNENHIMMEL 

59995 REM UND VERSCH. RUNDEN 

57997 REM 

60000 DATAZ,20,10,37,5,16,33,4,14,23,8,39,6,35,27,17,25,35,11,146, 32,36, 22 


61000 DATAZ,1,0,0,5,0,0,0,5,1,16,10,5,0,16,20,10,0,0,0,10,0,8,20,10,0,4540 . 
100 REM RESTORE N 

110 REM (C)1985 BY RALPH LAESSIG 
120 : 

130 A=704: FORI=ATOA+26 

140 READB: POKEI „O: 5=8+Q: NEXT 

150 IFS< >3099THENPRINT"DATAFEHLER!" 
180 : 

170 DATAO32,253,174,032,107,169,032 
180 DATAO19,166,144,013,165,095,233 
190 DATA001,133,065,165,096,233,000 
200 DATA133,066,096,076,227,174 


Commodore 64 


Restore N 


Dieses kurze Maschinenprogramm stellt die im Gommodore-Basic 
fehlende RESTORE N-Funktion zur Verfügung. Sie dient dazu, den 
internen Zeiger auf die nächste Data-Zeile zu setzen. Das bedeutet, 
daß man verschiedene Data-Blöcke unabhängig voneinander lesen 
kann und somit nicht mehr auf eine penibie Einhaltung der Reihen- 
folge im Programm angewiesen ist. Die Routine ist als Basic-La- 


der gestaitet und kann selbstverständlich 
auch in. eigene Programme eingebaut 
werden. Sie wird in Block 11 des Speichers 
abgelegt, weshalb man Sprite 11 nicht be- 


verschiebbar ist, kann die jetzige Start- 
adresse (A=704) jederzeit abgeändert 
werden. Die Benutzung des Programms 
ist denkbar einfach: Es wird mit SYS704, 
<Zeilennummer > aufgerufen, wodurch 


der Data-Zeiger auf die gewünschte Zeile 
positioniert wird. Sollten in dieser Zeile 
keine Datas enthalten sein, so wird beim 
nächsten READ-Befehl einfach die 
nächstfolgende Data-Zeile angesteuert. 


nutzen kann. Da die Routine jedoch frei 


Assembler-Listing 


„SET EL.O0 
#= rad 


;BE ESTORE N 


Er 25 Er EALSH LAESSTE 


de 


KERN 


*HEFD  SCHKICON 
39ER  SZEILENNUMMER HOLEN 
#512 ZEILE SUCHEN 

ERROR NICHT GEFUNDEN 

$5F 

#1 

#41 
EI 
20 

gel 


apfel 


A FE IE CE TI SE Re 


TRADE 


a! 


Ei 


re, 
u! 


K 


ar as 
Be 
ee ET 


Pi 
Lt 
TE 


‚gEIGER AUF RETUELLE 
‚DIATRZEILE SETZEN 


Ja a Eu 





„UNDEF STATEMENT 


en 
ae 


FREE 





Gompure mik on 


programme 


AT LANTIS für den Commodore 64 


Tauchen Sie zur legendären Unterwasserstadt Atlantis 

























In Ihrem letzten Sommerurlaub amMeerha- % 
hen Sie bei Tauchunternehmen rein zufällig 
die Überreste der legendären Unterwasser- 
stadt ATLANTIS entdeckt. Wie Sie aus der 
Geschichte dieser Stadt wissen, sind dort 
Schätze unermeßlichen Ausmaßes verbor- 
gen. 

Sie wollen nun diese alten Schätze der At- 
lanter bergen. Doch leider hat noch je- 
mand von dem Schatz und Ihrem Fund 
Wind bekommen, Charly Himriß. Um 
Charly zuvorzukommen, bleibt Ihnen 
nichts anderes übrig, als im Winter nach 









REM FESEEEFFEEESFTFFEHTFEHF 








[e) ; 

= au EEE Sue pi den Schätzen zu tauchen. Da das Wasser | und nicht ohne eine Krone zu 
Z REM *#* COPYRICHT BY $% ‘ natürlich eiskatt ist, können Sie nicht län- | Ihrem Schiff zurückkehren. Dies 
4 REM $$ EINSTEINSOFTUARE $$ ger als 2 Minuten unter Wasser bleiben, | hätte jedesmal den Verlust eines 
5 REM #$ CREATED BY s$ andernfalls werden Sie erfrieren und eines | Ihrer kostbaren Leben zur Folge. 
> Ben .. en a Ihrer 3 Leben geht verloren. Weiterhin | Vergessen Sie nicht: 
RT .: müssen Sie darauf achten, daß Ihnen | Bei dem Bergungsmanöver der 
7 


Schätze können Sie immer nur 
eine Krone zu Ihrem Schiff brin- 
gen. Istes Ihnen gelungen, sämt- 
liche Schätze auf dem Meeres- 
grund zu bergen, ist das Spiel 
beendet. 

Gesteuert wird mit Joystick. 


nicht der Sauerstoffvorrat ausgeht, Sie 
nicht gegen einen Felsen stoßen, Sie nicht 
mit den Monstern in Berührung kommen 


REM SIEHE SEE EEE 
iO V-5324B: 581=54272 

il POKEV+21,0 

12 POKEASO, 128: POKE657, 128 
13 IFPEEK (2) 601034 

14 FORI=0T06: FORN=OT062: READD» FOKE49152+1#64+N „Di NEXTN, I 
15 POKE198,0 

i6 INPUT" LACHIGHSCORE" HS 














Durch Druck auf den Feuerknopf 







17 IFHS< 1ORHS>65535THENHS=4838 HE Au a 

1iB H=INT (HS/256) 1 L=HS-256#H können Sie eine Pause einlegen. 

17 FOKEIOO,L: POKEFOI ,H Möchten Sie weiterspielen, drük- 
20 FORI=70410753: READD: FOKEI „Dr CH=SCH+D=: NEXT ken Sie Ihren Joystick nach 

21 IFCH<>5387THENPRINT"?DATA ERROR IN 2785-290" LEND rechts, 

22 CH=0 

23 FORI=972T01007:READD: POKEI, De CH=CH+D: NEXT 

24 IFCH< >6SS2THENPRINT"?DATA ERROR IN 2292-296&" END 

25 CH=0 | } 

24 FORI=499981050075: READD:POKEI „DI CH=CH+D: NEXT 
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IFCHS 1 1434THENPRINT"?PDATA ERROR IN 3298-307": END. 


CH=6 
FORI=B28T0891 : RERDD: POKEI „Ds CH=üH+DI NEXT 
IFCHS PSP 7ATHENPRINT"?DATA ERROR IN 309-314" :END 


GComputs miß 





22 


Programme 





31 .8Y5704 


GOSUB217 


BGOSUBSZO 


POKEV+24 ‚56: POKES6576,,14B: POKE648, 204 
POKEV+22, 216: POKEV+34 ‚0: POKEV+35 ,14 
Ki=V+30: K2=V+31 
SY5828 

POKEV+16,0 


: PDKEV+28 ,5: PDKEV+37 ‚1: POKEV+3B, 12 


POKEV+27 ,9:L=3 

POKEV+23 ‚8: POKEV+29,8 

POKEV+17,11:X2=INT(RND (1)#128) +80: Y2= INT (RND (1380) +135 
X3=INT (RND (1) #128) +80: YS=INT (RND(1) #80) +135 

POKEV+2 „X2: POKEV+3 , Y2: POKEV+4 ,X33 PDKEV+S,Y3 
FOKEV+6 , 96: POKEV+7 ,94 

POKEV, 104: POKEV+1 ,119 





POKEV-B ‚0: POKEV-7 „2: PÜKEV-6 ,43 POKEV-5 , 5: POKEV-4,6 
KO=PEEK (K1) : KO=KDANDKO 

IFKOBOTO42 

PRINT" SPOKEV+17, 11 

FORT=0T07 

80, T'[MEGEBGREGELEALEAERRARETREELTEREEEEETEEGE" ; 
NEXT2@0, 7" "z:@31,7" “; 

20,8" W29,B" Er “ 

PRINT"  "43@29,9" 0; 

PRINT OO Tg n; 
PRINT" (11: @28,11"5mP MEOXYGEN. ie ng 
PRINT“ "45@28,12" n; 

PRINT" "73029, 13" "; 

PRINT" "2027,14" HJ I Wü “; 

PRINT" 132" :@27,15" m si 

PRINT" "2629, 16’ HJ u; 

PRINT" BP: 929,17" "; 

PRINT" WII" E29, 180 Mm Er 

PRINT" EL: Pech Zn "z 

PRINTUEE MI SG2B, 20 Er ww 6; 
PRINT" @26,21" Em wu “; 
PRINT" "zea26,22" m Hl L L "3; 
PRINT" "5:@25,250) W= BE E E "3; 

PRINT = BE EL EN 
FOKES3223 ,32 

@0,0"BSCORE :"S:@14,0"LMEN = "L3@26,0" TIME: " 


FÜRA=LTOINT {RND 1) #5} +4 
X=IMT(RND(1)*243 +1: Y=723 

IFPEEK (52224+40xY+X) =43G01T074 

A 

NEXT 

POKEV+3?7, 13%: POKEV+40, 13: PÜKEV+41 „Os POKEV+42, 10: POKEV+43,7 
POKEV+21 „31 
FOKEV+8 , 160: POKEV+# BO 

FOKEK1,O: FOKEK2,0 

POKEV+32,0: POKEY+33,6 

FOKEV+L7,27 

TI$="006000": 0=100: SM=1:55=0 

IFRND(1)< . DOOSSOTGI4A 

IFRND (1><. OOOSSOTO1S3F 

@37,0'""TIE 

E32, i Stern n 

D=9-1 

IFPEEK (56336) < 112 THENM$=TI$: WAITS6A3I6 „8,8: TIteM$ 


 Computemit a8 
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71 
92 
93 
34 
95 
76 
97 
78 
27 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
i10 
131 
112 


125 
126 
127 
128 
127 
130 
131 
132 
133 
134 
135 
13& 
137 
138 
137 
140 
141 


142 


143 
144 
145 
145 
147 
148 
149 


programme 


X%=PEEK (VW) /8Bı YA=PEER (V+1) /B 

T=52224+40#YYHX4- 162 

KO=PEEK {ki}: KO=KDANDKD 

IFKO=FORKO=1STHENIFBSTHENGS=0 1 PDKEY+1,119% POKEV, ‚104: 0=100: K0=0: PÜKEK1,0 
IFKO=-3ORKO=-SORKO=7ORKI=SFBOTO1I7 

X= INT (RND(13#17)-8 

POKEV-7,2 

IFX<OTHENPOKEV-7, 3 


FOKEV+Z, PEEK {V+2) +X 


POKEV+3 ,PEEK (V+3) +INT{RND (1317-8 
POKEV+4,PEEK (V+4) +INT{RND (1)#17)-8 

FOKEV+5 „FEEK (V+5) +INT{RND 1? #173 -B 

IFFEEK {V+2)<BOTHENFOKEV+2,80 

IFFEEK {V+2) >20BTHRENPOKEV+2 ,208 

IFPEEK (V+3I< 1I5STHENPOKEV+3, 135 

IFFPEEK {V+%) >2Z0THENPOKEV+TF 220 

IFPEEK (V+4) <BOTHENPOKEV+4 ,80 

IFPEEK (V+4) »2OSTHENPOKEV+4 208 

IFPEEK (V+5)< 135 THENPOKEV+S5,135 

IFPEEK (V+5) >220 TRENPOKEV+5 , 220 

KÜ=PEEK {K2) 

IFKO=1 7ORKO= 1 FORKO=21ORKR=230RT 18 "000200 "ORO=SODRPEEK (V+L1)<119G0TG117 
9Y549999: 8Y5843: GOTOSS 
REM SUEHEEHnEHHEH 

REM TOEDLICHER UNFALL 

REM SER 

IFFEEK (TI =43THENIFOS=OTHENRT=T: BITO158S 

IFPEEK {V- 30) IHENIEDEER LTR) 22 [LEN IEOS SON ENNISERLLEONNI DE 
IFPEEK (T-1) =43THENIFOS=OTHENRT=T-1: 5B0OT015& 
SY5aB28:5Y5928 

POKESI+5 „120: POKEST +6 „BO: POKESI +2 ,3: POKESI +3,14 
POKESI+4 ,65: FÜKESI+1 ,9: FOKESIrZ4,15 
FORT=OTO100: POKEV+39,T3 POKESI, INT (RND (1) 255) 
NEXT: SYS828 

L=L-1 

@397,0","L 

IFL=050T0200 

65=0: 5M=0 

GOTO42 

REM rrtatt 

REM STOERUNG 

REM #8 

PRINT"LW": POKEV+2Z1,0 

POKEV+32,125 POKEV+33,12 


20,10’ Be iz : m"; 

PRINT" Fe 

FPRINT"E SUNTERBRECHUNG" 

PRINT "Sic "a: m"; 

PRINT" 3] "=: IFFEEE {V+L3<11PFTHENPOKEV+1,119 


FORT=OTO4000: NEXT: 50TO50 

REM #2##%%* 

REM SLÜGAN 

REM #trr4#4%* 

FRINT"L":POKEV+21,0 

FOKEV+32 0: POKEV+JFF,0 

20,24" WEEK ilL IT INSEKTENSPRAY" 

PRINT "RBIDAS GIFT MIT DEM GBEWISSEN ETWAS 1" 
PRINT'"ZSIBESUÜNDERS WIRKSAM GEBEN ALLE" 
FRINT"EBARTEN VON UNGEZIEFER," 


Gompube mie u 





Programme. 


24 


150 
151 
152 
155 
154 
155 
156 
157 
158 
157 
160 
161 
152 
163 
164 
165 
145 
157 
168 
189 
170 
171 
172 
173 
174 
175 
176 
177 
178 
177 
180 
381 
182 


PRINT"S#WIE Z.B. COMPFUTRONIC-REDAKTEURE" 
FRINT"EEEHIN DER: HANDLICHEN S-LITER-DOSE ! "3 IFPEEK (V+1)< 119 THENPOKEV+1, 117 
FORT=OTO80909: NEXT: GOTOSO 

REM RHEIN INNE 

REM EINE KRONE MEHR |! 

REM HRS 
5Y5828: 5Y5837: G9=1:5M=5M+1 
S=8+100+D%2+INT (RND (1) #50) +50 

87,0"="5 

PODRERT , 32: POKEK2,0 

IFA=SMTHENW=B: POKEV-B, 187 3=5+1000: IFPEEK (1) >96 THENW=-Bı FÜKEV-8,1i 
IFA=SMGOTDIG& 

GOTD8S5 

REM #%* 

REM SIEG 

REM ###*%* 

FORI=PEEK {V) TD1IOA5STEPW 

POKEV ,1:5Y5963: FORN=SCTO1ZOG:NEXTN,I 
FÜORI=PEEK {V+1> TO111STEP-8 

POKEV+1,1:5Y8853: FORN=OTO120:NEXTN,I 
POKEVr21,30 

SYSSZ8: 5SYS3B28: FOKESI+35,30: POKESI+A,20° 
POKESIrT2, 200: FOKEBSI+F,170 

FPORESI+4 „85: POKESI „S:POKESI+1 „5: POKESI+24,15 
FORI=0TO1SO0: NEXT 

SYSB2B: FOKESI+5,F0: POKESI+5,,30 
FOKESI+Z,F:POKESI+3,12 







POKESI+4,65: POKESI,1:POKESI+1 ,2 


POKESI+24,15 

FORI=FATOOSTER-2: POKEV+A,I 
FORN=OTG10:NEXTN,I 

POKEV+21,0:5Y9B28 

FÜREV+FZ,O: PDKEV+33,0:PRINT"L 

e5,2' UBEL t'!ıE" 

PRINT'"@EWICH HAB’ DIE BOLDENEN KRONEN !" 
PRINT"BIICH BIN REICH ! HAR, HAR" 
PRINT'BRNETZT HAB’ ICH AUSGESORGT." 
PRINT"EBITROTZDEM WILL ICH MEHR!" 
PRINT'BEEPMEINE GELBGIER KENNT KEINE GRENZEN" 
PRINTTEREMERR tin 

IFS>PEEK (900) +2548PEEK (901) THENPCKEJOL, 38/256: FÜKEFO0O0,5-PEEK (961) #256 
PRINTTPUNKTE :"5 

FRINT"ERBIHIGHSCORE 3 "PEEK (900) +?56#=PEEK (901) 
FRINT'EWBBISOLL ICH NGCH MEHR SUCHEN (J/ND ?"3 
GETTF: IFTF="N'"'THENSYS54738 

IFT$="J"THENRUN 

GOTO194 

REM waste 

REM VERLOREN 

REM xuxHt#Rr%% 

POKEV+r21 „0: PDKEV+32 , 6: PDKEV+33,6: PRINT "La" 
a5," AME DVER !rıye 

FRINT'EEISUA, DAS WAR'S DANN WOHL 
PRINT"EEIDA DU ZU DOOF BIST, DIESES" 
PRINT"BMSPIEL SIEGREICH ZU BEENDEN," 
PRINT'"EBMUSST DU DICH UEBER: DEIN" 
PRINT"EENASSES GRAB NICHT BEKLAGEN !" 
IFS>PEEK (F00) +254#PEEK (901) THENPOKE901 „5/256: POKE9OO „S-PEEK (901) #255 
PRINT"EBPUNKTE :"5 
PRINT" ERERHIGCHSEDRE = "PEEK (700) +2564#PEEK (901) 


Gompube mi au 


210 
211 
212 
213 
214 
215 
id 
217 
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programme._ 


FRINT"EBEIN NEUES SPIEL (J/W) 7"; 
BSETTS: IFT$="N" THENSYS44738 
IFT$=" 7" THENRUN 

GsaTozil 

REH RUE 

REM VORSPANN 

REM BEHS4444#+ 
FRINT"L": FPOKEV+3Z2 ,O: POKEV+33,0 














































eE5E,2'E INS TEINSOFTWAR E" 2 

PRINT "REREPRAESENTIERT :"' ; od» 25% 25 

PRINT EREER ———  — ——" HEnpg 020,5 "128 2288 
PRINT'BEBBBLIGA T LAN T I SE!" SOryny ’?,25919 | 
PRINTTaRBEBRE \.— —  —! © vi2g| 


PRINT"EIB@EICOPYRIGHT 1985 BY D. MOELLER" 
BRINTING See een 

PRINT"IERBEBBERDRUECKE EINE BETASTERL!!" 
POKE178,0:WAITI19B,1 





POKEV+17 11: RETURN | DATAO, 0,0,0,0,0,0,0,0 

REM TAUCHER/RECHTS | 278 DATA0,0,0,0,0,0,0,0,0 
DATAO,0,0,0,0,0,0,0,0 | 279 DATA1 .252,0,7,255,0,15,255,128 
DATAC,0,0,0,0,0,0,0,0 | 280 DATAIS,255,128,31,2535,192,31,255,192 
DATAO,0,0,0,0,0,0,0,0 | 281 DATA1S,255,128,15,255,128,7,255,0 
DATAO,0,0,0,0,0,0,0,0 | 282 DATA1,252,0,0,0,0,0,0,0 
DATAO,0,0,0,0,0,0,4,0 | 28% DATAO,0,0,0,0,0,0,0,0 
DATS152,150,0,10,1682,0,8,40,0 | 284 REM 15T 

DATA150,0,0,0,0,0,0,0,0 1 285 DATA169,203,160,2,141,8,3 

REM TAUCHER/LINKS | 286 DATP140,9,3,96,32,115,0,201,64,240 
DATAO,0,0,0,0,0,0,0,0 287 DATA&,32,121,0,76,231,167 
DATAO,0,0,0,0,0,0,0,0 | 258 DATS32,115,0,32,158,183,138,72,32, 253 
DATAO,0,0,0,0,0,0,0,0 | 2589 DATA174,32,158,183,104,168 
DATA0,0,0,0,0,0,0,0,0 | 290 DATA24,32,240,255,32,164,170,76,174, 1471 
DATA0,0,0,0,0,0,0,16,0 | 271 REM ZND en 
DATAO, 10, 128, ö, 128, 150, 0,40,32 | 292 DATR1EF,0,170,168, 123,252, 133,251 
DATAO,D, io, 0,0,0,0,0,0 1 293 DATA169,224,133,252,169,208,133, 254 


REM NEPTUN/RECHTS 
DATA2,160,0,2,160,0,2,160,0 
DATSE,224,0,0,128,0,0,131,128 
DATAO,133,64,0,135,195,0,195,140 1297 REM IRD 
DATAQ,161,144,0,159,224,0,135,192]| 298 DATR162,0,173,16,220,201 ,126,230 
DATAO,135,172,0,133,128,0,15,123 1257 .DATA15,201,123,240,22,201,119 
DATAO,35,0,0,62,0,0,252,0- 13090 DATA240,29,201,123,240,41,96 
DATA3,240,0,12,0,0,0,9,0 1301 DATAO,0,206,1,2098,232,224,8 

REM NEPTUN/LINKS | 362 DATAZOB,248,76,99,195,238,1 
DATAO,5,64,0,5,68,0,5,54 303 DATAZ08,232,224,8,208,248,76,99 
DATRO,7,192,0,1,0,0,225,0 1304 DATA195,169,0,141,248,207,238,0 
DATA1,81,0,195,241,0,48,227,0 305 DATAZ08,232,224,8,208,248,76,99 
DATAB, 659,0,7,249,0,1,241,0 | 304 DATA195,169,1,141,248,207,206,0,208 
DATA1,241,0,1,241,0,1,240,0 307 DATAZ32,224,8,208,248,76,99,195 
DATAO,240,0,0,126,0,0,63,128 I308 REM ATH 

DATAO,7,224,0,0,48,0,0,0 307 DATA169,0,157,0,212,232, 224, 21 

REM MONSTER 310 DATA2OB, 246,98 
DATAO,0,0,0,0,0,0,0,0 DATA189,88,3,157,0,212,232,224,7 
DATAO,0,0,0,0,0,2, 170,128 u BR 
DATAIL, 255, 224, is, 255,240,15,125,240 
DATA15,255,240,15,255,240,15,255,240 

DATA3,255,192,2,32,128,8,8,32 

DATAB,8,8,32,32,8,128,128,32 

DATA128,32,8,0,8,32,0,0,0 : 

REM SCHIFF 


| 294 DATA177,253, 145,251 .200,208,249 ,232 
| 295 DATA224,16,240,7,230,252,230,254 
| 296 DATA76,220,3,76 


Sompute mib | ” 





tips & tricks 


26 


Ss12 
313 
314 
315 
316 
317 


. 3450 


370 
371 


‚DATA21,198,198, 


DATA208,245,169,15,141,24,212,76 
DATA190,19,2,5,65,10,9 
DATA189,117,3,157,0 „212,232,224,7 


| Bereich 


DATA208,245,169,33,141,4,212,169,15,141,24,212 


DATAF&B,20,29,0,0,0,20,10 

REM SRH 

REM NEUER ZEICHENSATZ 

REM Heer 
POKESI8334 ,O:ı FÜKE1 „51 

575972 

PÜKE1 ,55: POKES6334 „1 

READA: IFA=-1 THENPOKE2 „255: RETURN 


FORI=0T07: READB: POKEST3444A4B+1, B:NEXT 


6010323 
DATA1,254,199,198,254, 198,198, 198,0 
DATAZ,254,198,206 ,248,206,198,254,0 
DATA, 254,198,192,192,192,198, 254,0 
DATA4,249,198,198,198,198,198, 248,0 
DATAS,254,192,192,248,192,192, 254,0 
DATA, 254,192,192,248,192,192,192,0 
DATA7 ,254,198,192,222,198,198,254,0 
DATAB,198,198,198,254,198,198,198,0 
DATAF,126,24,24,24 24,24 126,0 
DATA10,30,12,12,172,204 ,204,252,0 
DATA11,198,198,206,240,206,198,198,0 
DATA12,192,192,192,192,192,192,254,0 
DATA13,198,238,254,198,198,198,198,0 
DATA14,198,230, 246,254 ,222 ,208,198,0 
DATA15,254,198,198,198,198,198,754,0 


|" DATA16,254,198,198,254,192,192,192,0 


el a 
DATA18,254,198, 178, 254 ,204,198,178,0 
DATA197,254,192,192,254,6,6, 254,0 
DATA20,254,24,24,24,24,24,24,0 
199,198,198,190,254,0 
DATA22,198,198,198,198,254,56,16,0 
DATAZ23,1978,178,198,199, 254 ,238,178,0 
DATA24 ,198,199,254,,56,254,199,198,0 
DATA2S,198,198,198,2534,565,56,56,0 . 
DATA26,254,6,6,28,28,112,254,0 
DATA48,254,198,206,214,230,198,254,0 
DATA49,248,24,24,24,24,24,254,0 
DATASO, ?54,6,6,254,192,192,254,0 
DATAS1 ,254,6,6,62,6,6,254,0 
DATA5S2,193,178,198,254,6,6,6,0° 
DATASTF,254,192,192,248,6,6,248,0 
DATAS4,254,192,192,254,198,198,254,0 
DATASS , 254 ,6,6,62,6,6,6,0 

DATAS6 ,254,198,198,254,198,198,254,0 
DATAS7 ,254,198,199,254,6,6,254,0 
DATAO,170,170,170,170,170,170,170,170 


DATA27,125,125,125,125,125,125,125,125 


DATA29,0,0,0,0,0,137,74,146 
DATA31,0,0,128,188,126,61,36,68 
DATA43,0,68,56,16,124,170,170,124 


DATALSB, 192,172 ‚224, 224, 280, 240, Za0, 2s8 | 


DATA169,3,3,7,7,15;13, 33,31 
DATAS3,28,28,28,28,0,0,20,0 
DATA&S, 254,198 ,6,30,24,0,24,0 
DATA-1 


| 100 
E ııo 
| 120 : 


139 


5 140 
a 150 
a 360 3 


170 


E 100 


170 
200 


a 210 
| 220 


230 


Compube mib 


Commodore 64 


4 Dieses Hilfsprogramm ist vollständig in 
E Maschinensprache geschrieben. Es dient 
a dazu, einem beliebigen Speicherbereich 
g mit einem bestimmten Wert zu füllen. Es 
B kann z.B. dazu verwendet werden, beider 
4 hochauflösenden Grafik die Bitmap zu lö- 
4 schen oder das Farbram zu setzen. Bei 
M beiden Arbeiten bringt die Maschinenrou- 
5 tine einen enormen Zeitvorteil gegenüber 
a einer entsprechenden Basic-Schleife. 

a Das Programm ist als Basic-Lader gestal- 

E tet und wird in Block 11 des Speichers ab- 

= gelegt. Daher kann Sprite 11 auf keinen 

E Fall benutzt werden, denn die Routine ist 

& auch nicht verschiebbar. 

| Sie wird folgendermaßen aufgerufen: 
5Y5704, <Startadresse > ‚ <Endadres- 

| se> , <Wert>. Start- und Endadresse 
müssen zwischen O und 65535 liegen, der 

a Wert zwischen 0 und 255. 

2 Nach dem Aufruf enthält jedes Byte des 
gewünschten Bereiches ‚den gewählten 
Wert, wobei die Bytes der Start- bzw. End- 

a adresse ebenfalls gesetzt werden. Sollte . 

4 die Endadresse niedriger als die 

4 Siartadresse sein, wird nur das Byte mit 

i der Startadresse gesetzt. 


REM SPEICHERBEREICH BESCHREIBEN 
REM (031985 BY RALPH LAESSIG 


FORI=76410731 
READG: POKEI „Qi S=S+G: NEXT 
IFS<S >64BP7 THENPRINT"DATAFEHLER! " 


DATAO32,253,174,032,138,173,032 
DATA247,183,140,215,002,141,216 
DATAO02 ,032,253,174,032,235,183 
DATA139,141,017,017,238, 215,002 
DATA208,003,238,216,002,174,21& 
DATA002,228,021,144,238,166,020 
DATA236,215,002,176,231,096 


Assembier-Listing siehe nächste Seite 
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report 


:1=,05, 1225 EP EHLEH LEESsIn 


EREFT „EHEM 

FApon :FEMNHUM 

EReF : FAC=FINTEGER 

AuE+1 

AIE-+E :STARTRRRESSE 

ZREFLD 

£ET’ER „ENDALKESSE UHD FORE-WERT 


ja ER Ka 
a 


De Bu i EN 
fi Te) 
Ki ver Sa Eh ZEN EN 


z 
Du 
EM 
rn Eisen wen 


Einen Ba u BE EN BE 
kt Dia IR Er 


MER ET 


ar ar: 
AR VDE En 


"en 
R 


a a a a 


mu! 


" 
Fo 
Ze 
jo 
De 
en 
Er 
m 
Dr 
Der] 
Dur 
ua 
ae 


{ Lg 


51111 

ATIE+1 

1 ‚HIRESSE ERHÜEHENH 

STE+Z 

STIR+Z 

#153 

ETIE :BUlF BEREICHSENDE FRUEFEHN 
214 

Fle+l 


me 
fu Tau 


IM 
au 


AR Hm. 


Pe 
Pi% 


D) 


® ba bad ba > aa Dag' 
T 


“ 
NE Ast 


rate 


ET LET ne ng EEE 


a 
Ba 


DIRERE| 

ch 
EIER AT BE) 
at 


a 
ra 7 


MR 


Fe u 


i% 


Bo 
an 


er 





Der WDR bringt in einer G-teiligen Falgs im Rahmen das Schullernsshpregramms eine Sendung mit dem Thema 





6 Folgen zu je 15 Minuten - 9.10. Schuljahr 


Erstsendung Ziel dieser Reihe Ist es, die Funktionsprinzipien eines Compu- 
Erstsendung Mi. 17.45 Uhr #— Mi. 28. 8. 1985 ters und dessen Zentraleinheit, einen Mikroprozessor, an einem 
Wiederholungen Do. 10.40 Uhr Mi. 4. 9.1985 Beispiel zu erklären. Didaktisches Prinzip istes, dies handelnd 

Fr 810 Uhr Mi. 11. 9. 1985 „begreiflich“ zu machen, indem ein Gomputer gebaut und pro- 
Mo. 9.05 Uhr - Mi. 18. 9.1985 grammiert wird. . 


Mi. 25. 9. 1985 


Der Bau des Computers erfordert weder besondere Fähigkeiten 
Mi. 2. 10.1985 En u EN 


noch spezielles Werkzeug: Lötkolben, Bohrer und Zange. 
Programme können beispielsweise zur Schaltalgebra geschrie- 


1. Jede Menge Chips j ben und eingegeben werden. Weiter können Geräte und Anla- 
2. Aller Anfang ist leicht: Die Anzeige gen gesteuert werden, z.B. Fahrstuhl, Ampelanlage, Roboter 
3. Vergißmeinnicht: Der Speicher eic. 

4. Einer für alle: Der Prozessor Lehrerinformationen und köpierfähige Schülerarbeitsblätter zu 
9. 001, das erste Programm dieser Reihe erscheinen in der Zeitschrift „Praxis Schulfernse- 
6. Befehle nach draußen: Die Peripherie hen“, Heft 109/110 und 11. 


m | Gempuhe mi A 


programme. 


Gommedere 16 





“ Tscheng und Guo Khan, die beiden Leibwächter des großen und mächtigen Shaolin, 
kämpfen um die Gunst der Tochter Ihres Herrn. In einem unterirdischen Höhlensystem 
müssen Sie einen erbitterten Kampf auf Leben und Tod führen, um den Nebenbuhler 
aus dem Weg zu räumen und die Tochter des Shaolin zur Frau nehmen zu können. 
Jeder Kämpfer beherrscht vier Schlagarten: 


Joystick diagonal/oben 

fünks/rechts} ......... Fußiriit 

Joystick links/rechts ... . .. . Faustschlag 

Joystick diaganal/unien 

ilinks/rechts) . ........ ‚Beinscheere 

Joystick oben . .....:.. Sprung, hei Auftreffen auf den Gegner Genicksprung 









15 REM KEREHHKHEKRFF HEHE HR HR HER FR 














zU REM * 8 
AO REM «+ EGLOS SS US-S50FT « 
5 FEM 3% * 
SO REM * RALF ADLING * 
&O REM * j * 
70 REM #* 457& . BERGE * 
Bü REM * * 
FU REM OA et r 
iao CLR 

110 REM NELE ZEICHEN 

120 REM 





149 POKEV+18,PEEK tV+GB) AND2S1 
150 FOKEV+19,FEEE (V+19) ANDIORAE 






ıi090 REM 
170 REM JÜOYSTIECE 
z00 REM 









2n0 B=3240: D=3380; FO=500: PU=300 
z2&0 IFGX >41 THENGOSUB1IZO 

=70 GOTDBEI1O 

290 REM P 

z=70 REM HAUFTFROSRAMM 

Soon REM 








S20 IFPEEK (BrAä}=BITHENI Zdlr ELSEGOTD4EO 
40 A=sAtJOY tl): CeCtJOortiy) 

350 TRAPZ4O 

S40 IFFEEK (B+A)=BOTHENISSO 
IFFEEK (B+A) < >FTIZTHENGI1O 










a =: Compute mib 





Der Kampf um Shaolins Tochter 





Jedem Kämpfer stehen für seinen Kampf 
500 Kraftpunkte zur Verfügung. 

Jeder Treffer bedeutet Punktverlust, bei 
- Fußtritt 20 Kraftpünkte 

- Beinscheere 15 Kraftpunkte 

- Genieksprung 10 Krafipunkte 

- Faustschlag 5 Kraftpunkte 


Durch die Aufnahme von Kraftpillen ha- 
ben Sie jedoch die Möglichkeit, Ihren 
Punktestand um jeweils 50 Punkte zu er- 
höhen. Haben Sie Ihre gesamte Kraft ver- 
braucht, sterben Sie, und das Spiel ist 
beendet. Berühren Sie ein Todeskreuz 
oder werden Sie von Ihrem Gegner in ein 
Todeskreuz gestoßen, verlieren Sie eben- 
talls Ihr Leben. 

Eine neue Spielrunde können Sie mit der 
SPAGE-Taste starten. Um den Spielablauf 
noch etwas indiviueller zu gestalten, kön- 
nen Sie das Labyrinth nach Ihren Vorstel- 
lungen verändern. 






120 FRINT"B@SPOEKE 56,47: V=452780: EGLORO, 1: COLBRI1,2:E0DLORS, 1:VOLS 


160 RESTORE1440: FÜRT=BAZTO847: READA:FOKET A: NEXT:5Y583 
170 RESTDRE1450: FODRT= 128007013100: READA: TER>-I THENPOKET, A:NEXT 


219 All=e-BADIeLEAtDeirAlHelral)=Al:Atste-le AM=-13 AiBi=-IrAtü)=20 
220 LCiO)=71:CtY=sdıl(D}esHl(H ebd =67rll5)esrlih) =&8: 2 173=59:C (8) =70 
230 EID--BO:EiT)=b:E(M=il:Ei4)=1: EiD=4:E(6)=-15E(TI-L:E(BI=-1:E(O)=40 
240 FiO)=71:F(D=esdır{T)=5:Ft(i)shsifid)=ehfrris)eäh: Fio)=68: FiN=67:F(8)=70 


316 FORKER,„EC: IFHR+A= DTHENGOSUBS10: ECHAR1,9 »0,"W":PRINTUSING"A#4": FO 
Be IFPEEK (B+A}= =73THENFOKER+A „32: SOUNDI , E00, 55 PU=FU+30 
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programme 


780 FÜKER, 37: B=B+A: FOKEB-1024 „So: FOHER,D: D=0s IFFOSOTHEN1 390 
3970 GOTOSSO 
460 FOKED,F: IFD+E=BTHENSOSUB&AS50: CHAR ,32,0, "ll" = PRINTUSING"#B#" ; PU 
410 IFPEEK (D+E)=7STHENPOKED-+E „325 SOUND1 „800,5: PO=FO+50 
420 IFPEEK (D+E) =BSTHENLIFO: ELSEBOTOZ4O 
430 E=E (JOY (Er se F=F dor 2) 
440 TRAEPAS0 
450 IFFEEK (D+E)S »IPTHENGOO 
"460 POKED ,232: D=D+E: POKED-1024, 100: POKED,F: E=0: IFPLLOTHENI SAO 
470 GOTO470 
450 REM 
470 REM TREFER i 
500 REM 
510 SOUNDS ,555,1:80UNDZ,78%,1 
3520 IFB+1=DTHENSSUO 
520 IFR-1=DTHENSBO 
540 IFE-40=DTHENG1O 
Sa0 IFÜ=45THENFO=FO-20: POKED , 32: D=D+5: POKED,F: SOUNDS, 3,2: RETURN 
wat) IFC=&5 THENPO=FO-5: POKED „32: D= D+3: FOKED,F: 50UNDi „20,3: RETURN 
576 IFG=47THENPO=PD- 15: POKED „32: D=D+4: POKED, F: SDUNDI1 „770,3: RETURN 
580 IFC=48THENPO=PO-15: POKED , 32: D=D-4: FOKED,F: SOUND1 „977 , 2: RETURN 
70 IFO=&9THENFO=PO-5: POKED, 32: D=D-3: POKED,F: 5ODUND1 ,222,3:RETURN 
SO0O IFC=7OTHENPO=PD-20: FOKED , 32: D= D-5: SDUNDZ, 700,2: RETURN 
#10 IFE=7iTHENPO=PO-10: IFFEEK (D+40)< >BBTHENFOKED „32: D=D+40: SDLINDI, 770,3: RETURN 
520 RETURN 
630 KEM 
&40 REM TREFFER 2 
850 REM 
&&0 SOUND? , 555,15 50UNDS, 789,1 
570 IFD+1=HTHEN?OO 
880 IFD-1=BTHEN?SO 
590 IFD-40=BTHEN7A0 
700 IFF=65THENPU=PU-20: PDEEB, 37: B=B+5: FOKER,TD 3 SDLNDZ „800, 2: RETURN 
710 IFF=46THENPU=FU-5: FOKER , 325 B=B+3: PÜKER,, DC: SDUND1 „200,4: RETURN 
70 IFF=67THENPU=PU-15: POKER „32: =B+4: FOKER, EC: SDUNDi „70,32: RETURN 
30. IFF=&BTHENFU=SPU-1S: FOKEB 32: B=B-4: FOKEB, C: SOLND1 „277,2: RETURN 
740 IFF=59THENFU=FU-5: POKER,32:B=B-I:FOKER, e: SOUNDI „222, 3: RETURN 
750 IFF=7OTHENPU=SPU-20: POKER, 32: B=B-5FOKEB,C: SDUNDF, 2,2: RETURN 
a0 IFF=71THENFU=SFU-10: IFPEEK. (8440) € >B8THENPOKER 22: E=B+40: FOKENB „U: SOUNDI , 770,3 
: RETURN 
770 RETURN 
730 REM 
790 REM SPIELFELD 
Boo REM 
81Q0 SCNELR:COLOR1,3,7 
820 CHAR1 0,0, ee 
830 CHAR1 0,24, tee nebenetesh"  POKE4070D BB: POKE4071, [212] 
333 PDEEITO46, 114: POKEIOG47 „114 
B4c REM 
850 REM "T"=SHIFT/D “SYU=SHIFT/S 
: Sso REM 
370 COLOR1,72,&:CHÄRt „0,1 BE DELTDEUPTTDEINETEEE IT TE RR RE? 
BBO CHAR1,0,2,7W$ Hz u Ei ai 
870 CHAR1,0,2,"%" rm rt“ De 
700 CHAR1,.0,4,"% m) Lu y " 
710 ECOLOR1,2,5% CHAR1,0,5,"TTTTTT ITTIT STTIT ITITTTTTTT Pre 
ZU CHAR1,0,6,"TTT TI T FTIT ITITT ITITTITT TTTTT MTTTTTT® 
730 CHAR1,0,7," y ; 
740 CHAR1,0,8," rm j ge 
Fo COLORI 5244: EHARI„O,FLUMTTT FTITTT ITIT TTITTTTTTTTTT n. 
950 CHAR1,0,10, "MITT rs FITT STREET TITTEN" 
+ 
8185 GSompure mib = 


programme 


776 CHAR1,0,11,"%* IT fTtTrH ITTITIT FRELTT® 
790 CHAR1,0,17, SM 10 FTIT “ 127. 
770 CHAR1,1,14, T TI % 
1900 COLORI ,2,2:CHARL, 9,15,' KETTTITT ITITTT FT ITTITTTITTITTTT 


1010 CHAR1,0,16,"# ITITTT ITTTTTT 7 FE wi 
1020 CHAR1,0,17.'W® u ee = Bi 
1930 COLORI 52,4: ECHAR1,0,18, "0 IATHITERT 3 Ma 
1040 CHAR1,0,17, SHIT ITETFTTTTITETTITIITETETT I 1F* 
1050 CHAR1 „o,22,"4 Aa F u 


iß&sOo COLOR1,27,5:CHARI O,EERUMTTT IT ET Tg 
1070 COLDR1,=:CHARi, 1,0, "RATSCHENG: O0": CHAR1,24,0,"WEUO KHAN: oo" 
200 FORT=1TD5: FOKEINTIRND (1) #SoO+312cH „FE:NEXKT 
1090 GOTOS?7O 
1100 REM 
illOo REM IMTRO 
1120 REM 
1130 SECNELR:EODLOR1, 7,7 
1140 CHAR1,3,3,"8 111) 1) ı."T7TM TTT 
1150 COLOR1,2,&: EHAR1,3,4,"7] u u 
1150 COLOR1,2,5:CHAR1,3,5, wuaz "Pre TETE 
1170 COLDR1,2,4: CHAR1,2,5,' ar Ze 
1180 COLGR1,2,32CHAR1,2,7,"TTT71 7 = TRAIL 
1190 COLDR1,7,4:CHAR1 a LES WFECDLDRL,S 
1795" 
1200 GOSURI 240: RETURN 
1216 REM 
20 REM LIED 
1730 REM 
1240 FORI=1TD8:50UND!,810,10:5SO0UND1 2,10: SDUNDZ, 770,20 :W=INT {RND{1)#B+44) 
250 FOKESFSL,W: POKESISO, W:NEXT 
1280 FORi= 1708: SOUINDI „S24, 10: S5BUNDI Bor 10: S5UNDZ,B10,20 
1270 PÜKESTFSI, INT RNDI1)*8+64) : POKEZFSO, INT {RNDEIIRBrS4 I NEXT j 
"1280 RESTORE1320: FORI=1T01&: READU: SOUND] „U, 10rS0UNDI „O0, 10:SQUND2,L1,20:NEXT 
1290 GETEEYAF: IFA$="1" THENII4O 
i300 RETURN 
1310 FORI= 1102000: NEXT: RETURN 
1320 DATABS4, 824,554 ,854,770 ,757,789,810,810,054,8974,954, 854, 264 ,787,8160,770,789 
1730 REM 
1340 REM 5SFIELENDE 
1250 REM 
1360 FOREN, 64: POKEB, 32: FDRI=S0TUI1STEP-1 
1370 FOKEB+A, INT{RND({11*8) +54: SOLUNDI „8x I,S:NEXT 
1390 CHAR1 ,33,0, ECHR& (120): PRINT" LOST" GOSUR1 240: CLR: B=1: 5070130 
1390 FOKER,S4: FOKEB, S7: FORI=5OTOLSTEF-1: PORED+E, INT{RNDLI)#E) +54: SDUND1,8#1,3:2NE 
AT 
1400 CHAR ,9,0,CHR# (130): FRINT"WLOST" :BOSUR1240: DLR: Q=1: 500130 
1410 REM j 
1420 REM DATA'S FUER NEUE ZEICHEN 
1450 REM 
1440 DATAIS2,0,187,0,208,157,0,48,189,0,209, 157 ,0,49,202,708,241,96 
1450 DATA1I0,94,56,16,16,40,72,72 
1440 DATAIiB,60,80,140,31,16,16,1& 
1470 DATAB,321,48,80,74,36,58,132 
1480 DATA1B,60,90,80,74,720,18,17 
1490 DATASS,60,10,10,24,40,72,136 
1500 DATA16,124,10,10,8,70,18,17 
1510 DATA7Z,60,10,9,2498,8,3,8 
1520 DATAl&,15,170,22,16,40,689, 56 . 
1530 DATA1i29,66,60,36,26,60,56,12% 
1540 DATA&0,66,157,157,165,145,82,60 


e: 
ee 


GCompure mi | a“ 


programme. 








15350 DATAZ34,56,12,24,56,70,2477 
1569 DATA1S,13,13, 0,240,240,240,0 





1570 DATAi6,16,16,16,40,72,132,2 Variahj 

1580 DATAT&E,36,36,36,4,126, 26,66 LE en: 

1590 DATAL2F,255,136,754,132,1564,194,129 B_ Pewegung 5 : 
1600 DATA?3I ,„739,239,0,127,127,127,0 ce. _ Position shreler 7 
iö10 DATA255,0,255,0,255,0,755,0 D = Gastaj Pieler 7 


1670 DATA146,146,146,146,1465,146,146,146 
1630 DATA&0,66,153,181,151,153,66,60 
1640 DATAO,68,228,68,68,6B,68,68 

1550 DATA127,127,112,112,112,112,127,127 
1560 DATA127,112,112,127,1,1,127,127 
1670 DATA127,127,1154113,113,113,127,127 
1580 DATA112,112,112,112,112,112,127,127 
1690 DATA255,255 , 255 ,255,255,255,255,255 
1700 DATA113,113,113,113,113,113,127,127 
1710 DATAi27,127,112,124,124,112,112,112 
1720 DATA127,127,28,28,28,28,78,28 

1730 DATA-1 


= Position Spieler ; 






Klarer al für scharfe Rechner 
Mit dem Super-Service Kombi-Abo sparen Sie bares Geld. 


Wir liefern Ihnen 12 Exemplare „Compute mit“ + 12 bespielte Datenträger tür ane Schneider und 


Commodore-Systeme frei Haus. Nutzen Sie diese Sparchance, und füllen Sie den Abo-Schein aus. 













Super-Service 
Kombi-Abo 
„Compute mit... 


Name/Vorname 







Straße/Ar. i PLZ/Ort 















Ich wünsche folgendes ABO: 
[|] 12 Exemplare „Compute mit...“ + 12 bespielte Kassetten 


Bitte ausschneiden zum Preis von 97,50 DM (Ausland 110,- DM) 
und senden an: []. t2 Exemplare „Compute mit ..* + 12 bespielte Disketten 
Tronic-Verlag GmbH zum Preis von - 187,50 DM (Commodore) 264,50 DM (Schneider) 
| Postfach 41 Commodore ; Schneider 
3444 Wehretal [ ee : [ 5 eb 
U] 12 Exemplare „Compute mit... ohne bespielte Kasseiten 
zum Preis von . 30,- DM (Ausland 40,- DM) 
gegen | | 
[1] Rechnung [1] Vorkasse 


Datum, Unterschrift 


Abonnemeni-Kürdigungen: 
6 Wochen vor Ablauf des Jahresabonnernents. Außerdem kann ich diese Bestellung innerhalb von 10 Tagen beim Verlag widerrufen! Zur Wahrung der Frist genügt & -J 
die rechtzeitige Absendung des Widerrufes. 


Abo-Beginn ab Heft: Datum, Unterschrift 






= . Gompube mi 3 





programme 


HOSPITAL 


Ein Geschicklichkeitsspiel für die Grundversion 





des VC-20 





Krankenpfleger Heinz Gesund sorgt in der _ 
Uni-Klinik für die Pflege und Überwa- 
thung der Patienten. Er hat den Auftrag, 
alle bettiägrigen. Patienten mit der not- 
wendigen Arznei zu versorgen. Um an die 
Arznei heranzukommen, müssen Sie mit 
dem Fahrstuhl zum linken unteren Bild- 
schirmrand fahren und dort aus dem Rot- _ 
Kreuz-Schrank die Medikamente aufneh- - - 
men, Färbt sich nun eines der Betten der :: 
Kranken schwarz, müssen Sie zu dem Pa- : 
tienten laufen und dort die Medikamente : 
einsetzen. Gelingt es Ihnen nicht, in einer 

bestimmten Zeit zu dem Patienten zu ge- 
langen, verstirbt dieser. Auf Ihrem Weg zu 
den Kranken werden Sie als zusätzliche 
Schwierigkeit auch noch von Kranken- 
hausgeistern verfolgt, Eine Berührung mit 
diesen Geistern bedeutet für Sie den Ver- 
lust Ihres Lebens und der von Ihnen be- 
treute Patient wird nicht rechtzeitig von Ih- 
nen erreicht. Seien Sie also auf der Hut. 


ge ; = 









10 REM (0) BY RALF HOPPERDIETZEIL 


z0 POKE36879 ,25: PRINT"Iw" 
nie PR I N r & ” Be ROT ar a ACT 
40 PRINT" = ; ! 

so PRINT" 
80 PRINT" 


ar: : a 





BO FORA=OTO2O 


970 PDKES6B66 ,130+A: POKES6B64 ,32-A 


150 FORT=1T0100:NEXTT,A 


B Fa 3 # Eee: 
al Beste ee 
pe Be Su a ce. 


70 PRINT LIE! De u 3i___E er u Fee ts at 


110 PRINT"WSIE BEFINDEN SICH IN EINEM KRANKENHAUS UND SIE MUESSEN IHRE" 


120 PRINT"KRANKEN IMMER MIT ARZNEIMITTELN VER- 
130 PRINT"SCHWARZ WERDEN. WENN MAN DEN FEUERKNOPF 
140 FRINT"DIE ARZNEI VOM ARZNEI-KASTEN HOLEN ODER 
150 PRINT"ABER AUFSEPASST! DIE HOSPITALSEISTER 
160 PRINT"GANZ SCHOEN AUFREGEN. " 

170 FRINT"VIEL BLUECK! II" 

180 FORA=0T07: POKE7424+A ,0: NEXTA 

190 FORA=0TO111:READBSPOKE716B+A,B:NEXTA 

200 FRINT 'aasppiepis' TASTE’ E" ; ; POKE198,0:WAIT1IB,1 


2 | Compufs mi 


SORGEN, SOBALD. SIE" 
DRUECKT, SD KANN MAN!" 
DEN KRANKEN GEBEN." 
KOENNEN MANCHMAL EINEN"; 


9/85 


‚Programme 


210 PRINTSPRINT"SBITTE ZWEITEN TEIL LADEN! "END 
220 DATA?4,16,56,52,48,24,48,16 

230 DATA24,16,52,88,16,56,72,64 

240 DATA24,16,56,04,16,24,104,8 

250 DATA24,8,28,44,12,24,12,8 

260 DATA24,8,44,26,8,28,18,2 

270 DATA24,8,28,42,8,24,22,1& 

280 DATA255,255,255,985,170,255,255,255 
290 DATAO,0,234,170,234,174,0,0 

300 DATAO,0,238,130,196,142,0,255 

310 DATAO,0,174,168,170,238,0,0 

320 DATAO,114,251,255,0,255,66,66 

330 DATA255,231,231,129,129,231,231,255 
340 DATA129,153,153,129,129,129,129,129 
350 DATA24,24,126,126,24,24,24,24 


Teil 2: 
Ö REM iD) BY RALF HOPPERDIETZEL : 
1 FDKE36879,24: POKE36859 , 255: POKE37139, 0: POKE37154,127: POKES6878,, 15: T1=36875: T2= 
536875 ; 
2 AlZy=l:At4)=2:Bt1)eF:B(73=4:BRt3)=F:B (4) =5: 505SUBS9 
3 FORA=0T0376: IFPEEK (7768+A) =1 OTHENKA=KA+1:K (KA) =7768+A: KF (KA) =384B8+A 
4 NEXT 
5 A=37137:B=37152:P=7805: B=38529: FOKEP, 13 FOKEQ,U:L (1)=7888: L (2) =7978:1.(3)=9064 
6 LF(1)=38508: LF (2) =3849684 LF (3)=38784: LE=S: GOSUB&S 
7 IF{PEEK {A) ANDI) =ÖTHENBOSUBSS 
8 IFiPEEK (BI ANDIZBI =OTHENGOSUB41 
9 IF(PEEK {A)ANDEI=ÖOTHENGBOSUBAS 
10 IF{FEEK (ArAND4) =ÖTHENGOSUBA4S 
11 IF(PEEK{A)ANDSFZ) =OTHENSOSUBS4 
12 G=G+1: IFG=>KLTHENGOSUBSO 
33 FORLA=1TOS 
14 LZ=INTERNDE1?#4) +15 0DNLZGOTOIS,21,27,31 
15 IFLILAI -1=FTHENLE=LE- ir: GÜSUBAS 
15 IFPEEK(L(LA)-DI<S>SZANDPEEK (L (LAI-1)I< >12 THEN2O 
17 E=Er1: IFE=STHENE=1 
18 L{LM=LELA-1:LF(LAI=LFILAY-1:POKEL (LA) „B{E) SFOKELF (LA) 345 POKEL (LAY +1,32 
19 IFPEEK {L LA) -Z1UI =STHENFOKEL (LA) +1,12: POKELF (LA) +1,5 
20 NEXTLA:GOTO? 
21 IFL{iLAI+1=FTHENLE=SLE-1:6GOSUB65 
22 IFPEEK(L(LAI+1II<S>3ZANDPEEK (L iLA)+II<SSIZTHENDE 
253 F=F+t1: IFF=SSTHENF=1 
24 LILAISLALAIHIELFALAISLF(LAI+ISPOKEL (LA) „A(F) :POKELF (LA) „4: POKEL (LA) -1,32 
25 IFPEEK (L (LA) -23) =8THENFOKEL (LA)—-1, 12: POKELF(LA)-1,5 
2& NEXTLA:SDOTOT 
27 IFPEEK(L (LA) -22)< >BDRPEEK (L (LA) +BB3< > L2THENSO 
28 POKEL (LA? „123 POKELF (LA) ,SEL(LAI=L(LAI+BBELFILA)SLF(LAI+BB:POKEL (LA) „BIE) 
29 PÜOKELF (LA? 4 
30 NEXTLA:GOTO? 
st IFPEEK(LILA)-22)< >BORPEEK (L (LA) -BB) <>ITTHENS4 
32 POKEL (LA) „12: POKELF{LA) „SsL{LAI=LILAI-BBELF (LA)=LF(LA)-89: POKEL (LA) „BIE) 
33 POKELF (LA) ,4 
34 NEXTLA:GOTO? 
535 601007 . 
s6 IFPEEK (P-13< >32ANDPEEK (P-1)<>1TTHENRETURN 
37 POKET2,180:£C=C+1: IFC=SSTHEND=1 
38 P=P-1:0=0-1:POKEP,B{C} :FOKER „Us POKEP+1 ,32:3POKET2,0 s 
37 IFPEEK (P-213 =STHENPOKEP+1, 12: POKEQ+1,5 ; 
40 RETURN 
© 
965 Compurhe mib 


Programme 


IFPEEK (P+1)< >32ANDPEEK (P+i) <S >L2THENRETURN 


: P=F+88: Q=0+98; POKEP, BiC): FOKEG,UÜ:FOKET2,0: RETURN 


POKETZ,220: POKEP , 12: FÜKEQ , 5: P=P-88: 0=9-88: POKEF,AtDI: ROREO, U: FÜKETZ,O: RETURN 
POREKF {KS} „O:H=H+l: IFH=>KHTHENFOKER (KS} „13: GOSUB73:605UB53: T=T+1r ir1 =7THENG? 


KS= INT {RND (1)#F) +12 KL=INTIRND (1)#153 +15: B=0: H=d: KH=INT {RND (19 #30) +30: RETURN 


FOKET1 ,230:U=0:r PÜKEKF (KS) , 5: 50=50+100-B: FRINT ' ErsseRei" ; 305 BDSUBSIH FOKET1,O:R 


Jets" Shi GH 


„1l1:FDKEITBBRT „TS: RETURN 


En SPC E19) HI Er TFLE=OTHENPOKETI, 2: SOTDE7 


254T01285TEP-. 10: FOKEA,B: NEXTSFOKER OÖ: FRINT "a; FOKET&885% „240 


Be FOKET2,180:D=D+1: IFD=STHEND=1 

43 P=P+1:R=Q+1: POKEP,A(D) :POKER „U: POKEP-1,32: POKET2,O 
44 IFPEEK (P-25) =8THENPOKEP-1 ,12:POKED-1, 5 

45 RETURN 

46 IFPEEK tP-22) < >B0ORPEEK (P+BB) <> >12THENRETURN 

47 POKET2,220:POKEP ,12:POKEQ,S 

48 IFPEEK (P-22) < >BORPEEK (P-88) <>L2THENRETURN 

49 

50 IFPEEK (K (KS) )< >LOTHENGOSUBSS: RETURN 

51 

52 RETURN 

53 

54 IFPEEK(P-1) =10ANDPEEK (D-1}=ÖTHENSB 

55 IFFEEK(P+1)=10OANDPEEK (D+1) =OTHENSB 

56 IFPEEK{P-1)=110RPEEK (P+1)=11THENU=2 

57 RETURN 

58 

ETURN 

59 AS="FFFFFFEFFFEFFFFFFFFFFF":B$="J B L 
1; ki L R 
60 FRINT"LEPUNKTE - LEBEN — Et; tigt ,As; 

&1 PRINT"ÄFFFFFFFISSHOSFITALEIFFFFFFF"G 

&2 FORA=1T04:PRINT:PRINT"Ü":OEI BE: "Or AS; NEXTA 

63 FRINTZPRINT"E";C$; Böz ; LEFTS (RR ,21) 5 

64 POKEB185 6: POKES8905,,4: PRINT": POKEB16 

65 POKETI ,12BEPRINT"SE GER } 

66 FOKETI,0: RETURN 

67 A=36874: FÜRB= 

68 FÜKES7154,255:PRINT"FECH GEHABT!" 

69 PRINT"SWILLST DU ES NOCH MAL EVERBUCHEN (J/N) 7" 
70 IFFEEK (197) =20THENRLN 

7i IFPEEK (197) =28THENEND 

72 601070 

73 


FORY=128T0200: FOKET1,Y: NEXT: FOKET1 ,O:RETURN 





PER 





Flipper-Ball ist ein Computerspiel in dem Sie 
die Möglichkeit haben, den Gang zur Spiel- 
halle zu umgehen und auf diese Art viel Geid 
zu see 


Der Name des Spiels verrät schon den 
Spielablauf. Das Programm erzeugt einen 
Flipper auf dem Bildschirm und Sie müs- 
sen versuchen, den Ball solange wie mög- 
lich im Spielfeld zu halten. 

Natürlich erhalten Sie dabei auch Bonus- 
punkte und vieles mehr. Die Steuerung 
des Spieles erfolgt über die Tastatur und 
erfordert einiges Geschick von Ihnen. 


34 


ALL 


VG-20 + 3 K Erweiterung 





RT=1:G60T05000 


DATA-1,-21,21,1,23,-23,22,21,23 
DIML (3) ,‚R(3) „0% „UCHEFORI=1TDZSEREADL I) ENEXT 
PRINT" SFORI=1T03: READR (I) ENEXT 
FORI=1T03:READULI): NEXT 
FORI=1T03:0(I}=-Ut II NEXT 
L=36878: T=36874: POKEL,15: POKET,O 
BS=4# (FEEK (36866) AND128) +64 (PEEK ( IhB69) AND120) 
FA=48 (PEEK (36866) AND128) +37888 
BOTOFOO 
DOSs="" : FORI=11T02%: DO$=DO$+" 8" 3NEXT 
BS$=LEFT$(DOS, 19) + nennbEpree " 
P$=LEFT$ (DO$, 10) +"SPUNKTE ERBE IGT" 
Bi$=LEFT$(DOS, 19) + ahbppre 
B2$=LEFTS(DOS, 19) + BREI 54 
PRINT "stsisieteirtstiieirfietiirK IT IL TERRONT" TL 
BX$=LEFT$(DO$,5) +" BALLSHEREN" 


ERTNTEYEEY 
. 


DE Wr a er 


Sompuhe mib 385 


programme 


97 R=e21i:Rl=BS+s3+R: Y-3- j 

1060 POKEL,15: IFPEEK (197) SO THENPRINTBIF 

18j IFTR=4THENPRINT  ERLTSHE KIREFRRISBONLNS" 

102 IFTR=4THENP=P+5000: FORI=128T0254: POKET „I: FPOKET+1 , I: PÜKET+2, Is POKET+3,, IsNEXT 
193 IFTR=43THENPOKET ‚Or: POKET+1 ,O: PCKET+2,0: FOKET+3,0 

104 IFTR=4THENPR INT" efekelskisteisgeitagene " 

105 IFTR=4THENTR=O 

105 PRINT'"'Z PP" 

107 IFP>99IO0OTHENPRINT'EBeERkep TILT "EBOTO7OOO 

11G IFFPEEK (IFTISSZTHENPRINTBZF: YaY+i 

130 IFPEER (1Y7)=S54THENFRINTESF 

150 IFPEEK (R1+R) =S3ZTHENZFO 

160 IFPEEK {R1+R)=102THENP=P+5: POKET, 200: AX=SINEL2II:POKET,O 

166 IFPEEK {Ri+R) =209THENPOKET „O: POKET+1, Os POKET+2,0 

170 IFPEEK (R1+R) =108THENPOKER1+R „32: P=P+30: FORI=128T0200: POKET „Is NEXTSPOKET,OSTR 
=TR+1 

175 IFPEEK(RI+R): =Z17THEN177 

176 GOTO1EO 

177 P=P+1000: POKET „140: PDKET+3,1703 XX=SIN {1233 s POKET „O: POKET+3,0: 5PI=SPI+1:B0T01 
1505 : 

180 IFPEEK {Ri+R) =42THENP=P+100: FORI=1&0T0200: POKET „I: POKET+1 , I-Z20: NEXT 
181 IFPEEK {R1+R) =42THENPOKET „Os: POKET+1 „O0: PIKER1+R,32 

155 IFPEEK (Ri+R) =232THENPOKET „15301 XX=51IN (1233 ı FOKET,O 

200 IFR=BICI  ÜRR=0 (2) ORR=D FI TRENR=UCINTÜS#ND LI) +1)) 1 BOTO2FO 

210 IFR=U(1}DRR=U123 ORR=U (3 THENR=O INT (ZRRND (13+1)3 }: BOTOZ9IO 

220 IFR=L (1) ORR=L (2) ORR=L {3} THENRER {INT (3#RND (1) +13) : BDTD290 

270 IFiRi+R} >BS+451 THENAOO 

2391 IFPEEK(Ri+R)< >IZTHENZOC 

295 Ri=Ri+R: POKERI-R,32 

300 FOKER1, 81: B0T0100 

330 IFR=R (1) ORR=R (2) DRR=R (3) THENR=L INT (3#RND (1) +13) 

400 FORI=128T0250STEP2: POKET+3, I: FORJ=1T0151 POKEL „JıNEXTINEXT 

410 FOKEL„O:FDKET+3,0 

412 BX=BX-1: IFBX>OTHENPRINTEX$BX + BOSUB21 10: B0T09% 

430 BOTDASOO 

497 END 

900 FOKEIS4879,8 

205 PRINT" m" 


710 PRINT" EEE 
920 PRINT" Rn wa “ 
#30 PRINT" a. zu" 


740 PRINTER"; FORI=170145 PRINTTAB (6) "RE " : NEXT 
750 PRINT "ERBE", : FORI=1T014: PRINTTAB (203 "4 "NEXT 









1070 PRINT" u wre 
1080 PRINT" a PETE se m 
1079 PRINT" A Poren" 
11009 PRINT" Te Fe 
1110 PRINT" wu ee wo" 
1120 PRINT" Bu ee Fe un = Bl 
1136 PRINT" nennen Ft 


1140 GETO2PO0 

1150 FORI=1FBT0254: POKET, Is FÜKET+L Is POKET+2, Is POKET+S, IsNEXT 
1l&Oo POKET OS: POKET+1,0: PIKET+2 , 0: POKET+3 ,0: 8570900 

2110 PRINT" ERBREIERTEDTRTERTITRRI FERN BEh = w 
2900 IFSPI=1THEN3OOO 

2910 IFSPI=ZTHENAO0O 

3000 PRINT ek Eee 

3010 FRINT'"ErpkRera EEE 

3020 PRINT"ERRBERBEF Mi re Be ae ee" 

3030 FPRINT'bhabkEhEe iO ee EEE ee" 





23 "RETURN 


985 u | Sompuhe mib $ 





5035 FRINT'ERBERFS bei PUNKTE WER," 


programme 





3040 PRINT'"IRRBERBET Da Bu re 
3050 PRINT'RaeRbREI. «= ra. 2 A re" 
5060 PRINT'RERBEhAE «26a Be u DR" 
3070 PRINT'IEREREbE« I | eis Ei ru a 

3080 PRINT"RaBRbrn:- el A 

3670 PRINT"pERhAhREi ge But 5 

3100 PRINT'EReEauREI TU] mie Bea a" 
5105 PRINT'RIERBHTS BI LS 

31109 PRINT" SbbEmEn ta 

5120 PRINT'"EnRBkF ii: mia Bi 2 

3130 TR=0: G0T013 

4000 PRINT" ESRRRRERFAR #2 ri a 

4010 PRINT'BRERBERBENeN Te 

4020 FRINT"RERIRRRE gr De 


4030 PRINT"EEREREBE die ae 

4040 PRINT'ERRERmEIT ie ii Be " 
4050 PRINT'IEREEREIE ind Dim  ® 

4050 PRINT"eEkEREi: Dumn tea nd" 


4070 PRINT'IREFFEMT ET TUT nei DR 
4080 PRINT"MERERbBRG wen Br m 

4090 PRINT"EERrRUFREE a [1.7 u & 

4100 FRINT"RIERRERREIG 5 

a110 PRINT'ERBEREEENN Bi an bie 

4120 PRINT'ERPEREREFT „a ma AT” 

2130 PRINT"ERERIRRET a3 HE.) we Ei 


4900 SPI=0: TR=0: 007013 

5000 TL=0:RBX=3:5Pi=si 

5010 FCKE36B77,10 

50153 PRINT" Te te Be 
5020 PRINT'REREIR FL IPPER BALL ur 
5025 PRINT'EERBRREEFI Bei SPIEL” 
5030 FRINT"EIabkf5 Hei ANLEITUNG" 


5040 FRINT’ERARBF7 ii=N SPIEL ENDE" 
5045 GETA$S: IFAS=""THENSO45 

5050 IFAF="E" THENRT=RT+1:50TO05Y00 
5055 IFA$="#" THENSOTDSFIOO 

5050 IFAS="W" THENSOTO6&OOO 


5070 IFA$="3" THENPRINT "LIRRERRRDEREIIBRAPRARBENDE" END 


5080 GOT05045 

5500 POKES6879 , 14: PRINT"L." 

5505 PRINT"kEiie«e SSFLIPPER BALLE una " 
5510 PRINT"WRIHBISSTEUERUNG Eis " 

5515 PRINT"'EBRRBECLRI-EHOME B= BRECHTS" 
5516 PRINT"ERBE s-ialB- Bet LINKS" 
5520 PRINT"EBEMAN MUSS VERSUCHEN" 
5525 PRINT’EEMIDIE KUGEL Bi an )E AUF" 
55350 PRINT"EEBDAS KREUZ St wiki )E ZU" 
5535 PRINT"EIMTREFFENG. =" 

5540 PRINT 'ARbrRRIMRE<ETASTEN>" 

5545 POKE19B,0:WAIT198,1:60T05000 

6000 FOKE36879,B:PRINT"L" 

6010. FRINT"ARBBRTPUNKTEWERTUNG" 

#015 PRINT’EREEERe IE Mei 5 PUNKTE" 
6020 FRINT "5 ek 1000 || " 
6025 PRINT'EREREEIT« ei 100 1" 

&030 FRINT"SIeREBRG ,. Heid so dj“ 

6055 PRINT"EIBRSRERBREXHTASTEN>" 

6040 POKE198,0:WAIT198,1:B0OT0S000 

6500 POKE36879 „B: PRINT" LU" 





| Neue Spiele und Programme 


zum Commodore 64 
von Steffi Siel 


| Ein Buch aus der Nußknacker-Reihe, daß 
4 sich mit Programmen für den Commodore 
1 64 beschäftigt. Hier werden in leichter und 


für jeden verständlicher Weise kurze Pro-- 


& oramme in Basic vorgestellt und erläutert, 


Der Leser wird somit mit einer Software 


| vertraut gemacht, die es ihm ermöglicht, 
3 einige Dinge des alltäglichen Bereiches 
$ auf einfache Art zu erkennen und zu erler- 
| nen. So werden Fragen zu Autoherstellern 
4 gestellt, der Spritverbrauch Ihres Kraft- 
E fahrzeuges errechnet, die vor und ale 


ei ernennen ng een gbsnehne Maabbeuahteaktehttent eg 






; wertsteuer errechnet, Tips für die richti- 


gen Lottozahlen gegeben und vieles mehr. 


- Außerdem finden Sie in diesem Buch 
# auch eine alphabetische Aufzählung der 
# wichtigsten Basicbefehle mit den dazuge- 


hörigen Erläuterungen. So bekommt man 


Ö schneli einen Überblick und ein Nach- 
4 schlagewerk für den Umgang mit der Pro- 
a grammiersprache BASIC. Aile Program- 


me können durch eigene Phantasie und 


1 Programmierkünsie erweitert werden. 


5 Veriag Rudolf Müller, Köln, ISBN 3-481-36321-4 
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PRINT "anne - 2 ; 
PRINT'EnkeRy FLIPPER BALL ug 

PRINT ERSEEE BE Be" 
PRINT"E&E EEE EEE 

PRINTER Ze ME m BE gr in Et! 
PRINTER Fe Sm a a" 
FRINT ER 
PRINT"REIR im ef 
FRINT'TERBERE EB I: Du 
PRINT'EREBRI FO 
FRINT'IBEMIT"P"PUNKTE" 
FRINT Eee TASTER >" 

FPOKE198,0: WAIT1F8,1:G0T05000 

IFRT=ZTHENI 

F=0: BX=3:50T0% 

FORI=1 T05000: NEXT: TL=TL+1: BX=BX +2: FP=00000: GOTD6& 
REM 
REM 
REM 


DE 
Ir" 
En Det 


KUEHEREHEREREE 
REM #* COPYRIGHT #* 
REM # BY = 
REM * OLIVER R. #* 
REM * SOHINGER #* 
REM * TEL.GZI2I-# 
REM + 8792 * 
REM SEHE 
REM 


REM 








BASIC: Beriehsprogramme für den Fankamater 





Eine Software-Sammlung in Basic“ 





Dieses Buch spricht den Funkamateur un- 
ter den Homecomputer-Besitzern an. Der 
Autor hat hier zehn vernünftige Pregram- 
me für die Stationsarbeit der Funkama- 
teure geschrieben, die den Funkverkehr 
erheblich erleichtern. j Basic: Betriebsprogramme 
Der Verfasser des BuchesbenutzteineBa- $ tr den Funkamateur 
sic-Version, die von fast allen Rechnern ' 

und Hobby-Programmierern verstanden 
wird. Soliten doch einmal Unverträglich- 
keiten mit dem Rechner oder dem Pro- 
gramm auftreten, dann sind meist nur 
geringfügige Änderungen notwendig. Der 
Inhalt des Buches ist auch nach diesen 
Gesichtspunkten aufgebaut. Von einem 
verhältnismäßig geringen Umfang und 
Aufwand, also sehr einfach, sind die 
Programme Stationstagebuch, Kontest- 
Rufzeichenliste und Weltzeituhr. Aufwen- 
diger und anspruchsvoller sind da schon 
die Programme Standortkenner, Änten- | 
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report 
2. Elektronik- & 


I Computerlage Saar 


Vom 6.-8. September finden in der Kon- 


greßhalle Saarbrücken die 2. ELEKTRO- 
NIK- & COMPUTERTAGE als Verkaufs- und 
Informationsmesse statt. Unter der 


| Schirmherrschaft des saarländischen 


Landtagspräsidenten Albrecht Herold bie- 
tet sich ein repräsentativer Querschnitt 
durch die gesamte Elektronik- & Micro- 


| computerbranche. Neben den kommer- 
u ziellen Rechnern findet der Besucher eine 


große Auswahl an Zubehör und Fachlite- 


i ratur. Aber auch Elektronik, Audio- und 
u Videotechnik gehören zum Messeschwer- 


punkt. Im Foyer West finden die jüngeren 


E Besucher ihr „Heimcomputerparadies“ 
2 mit allem was das Herz begehrt. Nicht zu | 
vergessen sind die Vorführungen der 
& DEUTSCHEN BUNDESPOST und die des 
ji DEUTSCHEN AMATEUR RADIO CLUBS so- 
E wie die zahlreichen Fachvorträge. Mit fast 
E80 Ausstellern und einem vielfältigen 
5 Rahmenprogramm, ‘einer Medien-Son- 
# derschau ist ein Besuch in Saarbrücken 


von Erich Vogelsang 


vom 6.- 8. Sept. für jeden interessant. 












nenvertikaldiagramme und die Rechen- 
programme zur Wellenausbreitung und 
zum Satellitenempfang. Der Profi weiß mit 
diesen Fachbegriffen etwas anzufangen 
und kann sich so schon ein Bild machen, 
ob dieses Buch für ihn eine Hilfe und Be- 
reicherung für den täglichen Funkverkehr 
darstellt. 

Alle Programme schließen mit einem Bei- 
spiel ab. So erkennt der Funkamateur sehr 
schnell das Ergebnis einer Arbeit. Das 
Buch scheint eine sinnvolle und äußerst 


interessante Kombination von Amateur- 1 


funk und Computertechnik zu sein. 







Franzis-Verlag GmbH, Müncken, 
ISBN 3-7723-78013 











Programme. 
für VC-20 Grundversion 






Die Flucht mit dem Raumschiff 


Sie als Astronaut befinden sich in einer 
riesigen Maschinenhalle und müssen ver- 
suchen das letzte Raumschiff zu errei- 
chen. Alien hat es sich aber zur Aufgabe 
gemacht, Ihren Weg zum Raumschiff mit : 
Hindernissen zu versperren und Sie zu 
vernichten. Sie haben jedoch die Möglich- ' 
keit mit Hilfe einer Laserwaffe die Hinder- 
nisse auf ihrem Weg zum Raumschiff zu 
beseitigen. Ein Druck auf die Feuertasie 
Ihres Joysticks und die Eier oder Blitze in 
der Halle verschwinden, Hüten Sie sich je- 
doch vor Alien, damit Sie nicht erwischt 
werden, da Ihnen nur drei Leben zur Ver- 
fügung stehen. Achten Sie auch darauf, 
daß Alien. nicht durch Blitze und Türen 
laufen kann. Ist es Ihnen gelungen, das 
Raumschiff unbeschadet zu erreichen, 
dann können Sie einsteigen, starten und 
sich in Sicherheit bringen. Damit ist das 
Spiel beendet. Vor dem Start müssen Sie 
jedach darauf achten, daß das Haupttor 
der Startrampe auch von Ihnen geöffnet 
wurde. 
7 FOKESS, 29: POKES2,29 
B FORA=F423T0742I+I228 
9 READDA: POKER,DA:NEXTA 
10 POKES6879,14: PRINTCHRE 11423: FÜKES4847,84 
: BES ee" 








14 PRINT BEREIT ei TE 
15 FRINT"'ERBRERB 1 m ” 

15 FRINT"ERBRBE. De 1 
17 FRINT"bDRRERbRhI Ei 74 12" 

19 FEINE un nn 

z0 FRINT"BZ ERISSUET SRESENIS 2 
21 BR EN 7 atmen 





22 PRINT"BRBk% BI vzi 
23 PRINT "IREREEE Te U EPRINTFERR 10) 1984 ——___" 5 
24 PRINTER. Ten 

27 FRINT'"E RY RALPH HANSEN "ss PRINT"LILIIIT':FA=1: 501081 

28 POKE646,FA:PRINT" 2“ 

297 PRINT" a THEHIITMN 
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30 PRINT" II LIL.I4 "RETURN 
31 FA=FA+. S:PRINT"LIILIN" : BOSUB2B: IFFAFTTHENFA=1 

32 GETA$T IFAF<>""THENSS 

33 G0T031 

35 FOKEF6879,234: POKES6BS7 „46 

40 PRINTEHRS$ (14) CHR$ (B) "log WPIELANLEITUNG " 

42 FRINT"g -U BIST AM |ORD DES N-RÄCHTRAUMSCHIFFES Br OSTROMD'." 

44 PRINT’M U HAST ALS EINZIBER M -ENSCH DIE #NGRIFFE M DES 4LIENS UEBERLERT" 
46 PRINT"R UND MUSST NUN VER- Wi SUCHEN,DEM ALIEN ZU M ENTKOMMEN,BEVOR ES" 
48 PRINT"M DICH TOETET." 

49 PRINT" ae "::POKEB185, 150: FOKEIBI0S,2 

50 POKE198,0:WAIT198,1 

51 PRINT"  WPIELANLEITUNB 2 _ " 

52 PRINT"B U KANNST DAS SLIEN BE MIT EINER LASERWAFFE N LAEHMEN „WORUER E58 25" 
53 PRINT" "UNKTE GIBT. Mi -IE SAFFE LAEDT SICH | NACH JEDEM WCHUSS 8 
AUF." 

55 PRINT"B -A DAS »LIEN ABER RM HUEFFT,KANNST DU ES MW NICHT IMMER TREFFEN." 
55 PFRINT"RIKeE ee 8"; 

57 POKEB185, 160: FOKE38705,2 

SB POKE178,0:WAITIIB,1 

60 PRINT"IIEE SWPIELANLEITUNG 3  * 

62 FRINT"B AUSSERDEM MUSST DU MB DIE -IER,DIE DAS el #LIEN LEGT ,VERNICH-" 
64 PRINT"M TEN. -AFUER GIBT'S 50 @ "UNKTE. M .M AUS DEM _AUMSCHIFF" 
65 PRINT" ZU FLIEHEN, MUSST DU © ZUM @HUTTLE LAUFEN, EM DIE #CHLEUSE AUF-" 

&6 PRINT"B SCHIESSEN UND DANN IN"TSPRINTFIEE  \ 8"; 

67 POKEG185, 160: POKES8Y05,2 

68 FOKE198,0:WAIT1FB,1 

70 FRINT'IMMS  #PIELANLEITUNG 4  " 

71 PRINT" DAS “AUTTLE STEIGEN; ® DER #TART ERFOLGT WM AUTOMATISCH. " 

72 FRINT"N +UDEM KANNST DU VDR WM DEM #LIEN IN EINE DER® KLEINEN WCHLEUSEN" 

73 PRINT" FLIEHEN;DU DARFST mM ABER NICHT IN EINEN M DER ILITZE LAUFEN." 
74 PRINT" ES ET Tee Es: POKEB185, 150: POKESB9IO5,2 

78 POKE198,0:WAITIFB,1 

30 PRINT"LIIE ee > 

32 PRINT"AII [IB a‘ EIN UND" 

94 PRINT" LADE DANN jEIL 2":POKE19B,O0 

900 DATAO,0,0,0,0,0,0,0 

901 DATA126,66,125,66,126,66,125,66 

702 DATA24,60,60,24,0,0,0,0 

30% DATA255,66,36,24,255,35,66,127 

904 DATA255,129,66,36,255,0,0,0 

705 DATA1LI32,68,36,20,248,168,8,4 


707 
F10 
711 
912 
7153 
14 
713 
2915 
917 


DATA17,14,16,160,255,160,32,16 
DATA12,12,4,110,63,13,27,49 
DATA28,29,77,62,29,28,20,4 
DATA48,48,32,118,252,112,216,140 
DATAO,0,0,36,0,0,0,0 : 
DATAO,0,0,0,36,24,74,36 
DATAO,0,36,24,24,36,0,0 
DATA36,24,24,36,0,0,0,0 
DATA119,107,93,62,127,62,28,8 
DATA24 ,48,96,48,24,12,24,38 


FEO DATA223,223, 94,124,93, 206, 253,255 


921 


DRATA227 ,224, 192,244, 248, 188,194,248 


922 DATAZSS,171,251,2595,255, 191,251 ,299 


923 


DATA129,70,60,126,126,60,70,127 


324 DATA226,161,130,161,1672,131,228,137,64,32,64,37,64,192,38,146 
725 DATA137 "132,227, 164, 232,23, 253,255,146,34,194 ,39,21,237, 191, 255 
926 DATA12,14,209,255,255,223,15,7,0, 0,129, 129 ,192,255,255,255,0,128,96,16,60,74 


B, 
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39 


Programme 


927 DATA0,127,193,193,225,255,255,255,24,62,119,2721,111,59,30,12 
F30 DATAFS,1I6,36,24,74,16,36,160,12,24,2272,121,182,88,32,0 

331 DATAO,0,0,0,0,32,116,255 

READY. 






21 LI=& 
22 8=365874:00=20720 
2B RI=1:0=7727: A=797 38: EP=0: Deo: E=I; PP=i37: Alb: AP=I2: Be} 
z0 FOKESS „2F:ıRFÜKEST 77 
1 FRINTF La *# ALIEN #%*" 

=2 PRINT"WEHN KO LIVE "LITER "Sog" 

335 FRINTTREIEEITTPIPPIERPITTPIRTIRD" 

=4 FRINT"ZE! Fr Be" 

35 FOKESAB69 „259: POKEI6879 , 30: FOKEZ7154,127 
27 PRINT a ti 
40 FRINTEIg' er u  - E. + 

42 FRINTTIE ES DET I  BEDZZIZTIEE": 

44 FRINT"Zg! ı } B2": 

45 PRINT"ZZZTZR DE Hg"; 

44 PRINT" ltr"; 

48 FRINT"ZZRPPZTTR SER en 2" 

S0 PRINTFrp4SaS) z’g ıEj7"; 

S2 PRINT’296767 RA INETTIZTRO DREI" 

54 FRINT"Zg.. 'Disg! ' Er": 

55 FRINT' TER DT Er Ti De 2" 
54 PRINT=ZgG0 1! ı rg re 

SB FRINT"Z7IR Die. BIT a OH" 

50 FRINT'Za ' DW’ ee a 

2 FRINT"28  BZ2TRONZZTTR  ERHHZI IND DIDD" 

&4 PRINT"Ig! IE iz"; 

55 FRINT"TITIEg IE KRHSHZE TED"; 

5b PRINT"ZEI \ ME igpr" 

89 FRINT"TIPZFZZPSPFZIEIPFITPIIEER" 

75 POKES+4,15 

100 T=PEEK (37151): TT=PEEK (27157): D=b#+1: IFD>TTHEND=O 
101 FRINT’EIIRERI INT (EG) 

102 IFRND(1)*3<. 1THENFOKE7937,47 

103 IFRND(1)%#4<. 1THENFOKEBOFE „47 

105 IFT=F4THENSOO 

1106 IFT=12&ANDTT=247THEN151 

115 IFTS1ZITHENRI=-72:E=-1 

120 IFT=118STHENRI=72: E=1 

125 IFT=116THENRI=-L:E=0 

136 IFTT=11FTHENRI=1:E=? 

135 PO=PEEE {U+RI)} 

i:Ah IFPO=3S20ORPO=SXTHENL4O 

137 GOFO2O0 

140 FOKEO+RI ,E+Z3F 

145 POKEO,FP= FOKES+Z, 136: FOKES+3,0 

147 0=0+RlI:FP=PO 
-151 IFSP>ZTHENSF=SP-13G0T0178 

152 IFSF<>OTHENI160 

152 AR=INT (RND {1}*4)-1: IFAR=OTHENAR=27 

:155 IFAR=?PTHENAR=-?7? ! 
160 PA=PEEK (A+AR} : AF=PEEK (A+AR+CD} = IFFA=33ANDLE=OTHENSP=0: LE=1: 5010195 
i51 IFPA=32THENLE=O 
153 IFFA{SFTHENSP=?: 5070195 r 
154 IFA+HAR=OTHENAOO 
165 SF=6:560T0100 
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195 POKEA,AP: PÜKEA+CO, AZ: AP=PA: AZ=AF : A=A+AR: POKEA ,D+43: POKEA+CD,6 
196 IFAP=SZANDRND (1) %*1%. LTHENAP=34 

197 POKES+1 ,254-D:POKES+1,0 

198 G=6+. 2: IFG>FTHENG=9 

199 GOTD100 

200 IFPO=470RPFD>42ANDPO<4640RPFO=4F0RPO=570RPO=19FTHEN210 

205 6010151 

210 IFPO=49THENPDKEO+1 , 199: 6070151 

215 IFPO=199THENPOKEO+1,32:6070151 

220 IFFO=47THENFDKED „PP: O=D+RI: FORT=1T015: POKED+CD,7:POKED, 47: POKES+1 ,144 
222 IFPO=47THENFORTT=1T0100: NEXT: POKEO+CO,4: POKEO, 61: POKES+1 ,138 

225 IFPO=47THENFORTT=1T050: NEXT:NEXT: PDKEO „63: POKES+1 ,O:LI=LI-1:FORTT=1 T0500: NEX 
T 2 

226 IFPO=47ANDLI>OTHENZB 

227 IFPO=47THENF0O 

230 IFPO=S7THENFPOKEO „PP: POKED+RI „59: BOTOS0O 

235 IFPO>AZANDPO<A&THENA4OO 

293 END 

300 0=0+RI+25 

301 PRINT"ERRERN"TAR(GA" 

304 IFPEEK (7808) < »S2THEND=5 

305 At=" BB: ":FORT=1TOB 

206 PRINT"RREIIE" 

307 FRINTTAR(1Z+TIAS5 

308 IFT=4THENAS=" BB; " 

307 IFT=STHENAS=" mia" 

310 IFT=4THENAS=" BE" 

311 IFT=7THENAS=" " 

312 IFT=1ANDD=STHENPOKED ‚81: POKED+CO „4: POKES+3 , 156: FORTT=1T0400: NEXTTT=:POKED,63: 
T=? 

313 IFT=FTHENPOKEO-3,32: 5070709 

315 FORTT=1T0100:NEXT 

320 POKES+3,156+T*2.2:NEXT 

398 POKES+Z,0:DD=2:E=7:G0T0901 

400 FORT=1T0O30:FOKEO,61:POKES+3,145+Tx7: FOKES+2,214+T: POKEO, 62: NEXTT 

410 FOKES+2,0:POKES+3, 0: POKEO, 63: POKEO4+CD, 4: FORT=1T0500: NEXT 

420 LI=LI-1: IFLISOTHEN2B 

430 BOTOFOO 

500 IFABS{RI}=220RINT (GB) =ÖTHENI1S1 

501 FORES+3,254: PH=E+39: FORSS=Ü+RITOO+RI*GSTEPRI: G=8-1 

510 FS=PEEK (58) : IFPS=3S20RPS=3ITHENPOKESS-RI „FH: PH=FS: POKESS „42:NEXT 

515 IFPS=S4THENPOKESS ‚61: POKESS-RI „PH: POKES+Z „232: FORT=1T0100; NEXT: POKES+2,0 
520 IFPS=34THENSCL=SC+S0: POKESS,32 

530 IFPS=470RPS=4F0ORPS=246THENPOKESS „61: PODKESS-RI ‚PH: PDKES+3, 222: FORT=1T0200:NEX 
T:1=7 

535 IFT=7THENPOKES+3,0: POKESS,32 

540 IFPS>43ANDPS< 44 THENSC=SC425: 5P=20 

585 POKESS-RI „PH: IFB{OTHENG=O 

590 POKES+3,0 

599 PRINT"ERIM"TAB(16)SC:GDTO151 

900 FOKE7714,17&6:DD=& 


901 FOKE3Z7134, 255: FOKES+F,O:FORT=-1 TOS00: NEXT 

710 FÜORTT=1T010:FORD=1451T0178: POKES+DD,D+TT#3:NEXT:NEXT:POKES+DD,O 
926 FOKE151 ,0:WAIT181,5 

925 FPRINT"W"r IFEXF7THENFRINT"EISN SESORRY,YODU ARE DEAD" 
9209 FRINT"EEBIE Hr GAME OVER ! ur" 

725 PRINTEBBS SCORE: "SC 

940 FRINT’EERE NEW GAME? (Y/D" 

74& IFFEEK (ZO2}=11THENRUN 

747 IFFEEK (Z03)< >ZBTHEN?F4E 
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6502-Assembler-Kurs 





Befehlssatz des 6510/6502 


Im letzten Teil haben wir uns die einzelnen | Die Beeinflussung der Flags erfolgt durch Flag-Bezeichnungen: 


Adressierungsarten des 6510 betrachtet. | eine Art Tabelle: 
Wir wollen nun dazu übergehen, die ein- 76543210 Bit-Nummer 


zelnen Befehle anhand von kleinen Bei- 


N Negativ Status 
V Overflow Status 


spielen kennenzulernen. NV BDIZEC Flag-Bezeichnung B Break Status 


In den folgenden Befehls-Beschreibungen | xx 
verwenden wir immer wieder gleiche Ab- 
kürzungen, welche an dieser Stelle erklärt 
werden solien. 


Beeinflusst (x=Ja} D Decimal Mode Status 


I Interrupt Disabie Status 
Z Zero-Status 
GC Carry Status 


R6500 MICROPROCESSOR INSTRUCTION SET — ALPHABETIC SEQUENCE 


Add Memory to Accumulator with Carry 


"AND” Memory with Accumufator 


Shift Leit One Bit (Memory or Accumulator) 


Branch on Carry Clear 

Branch on Carıy Sei 

Branch on Result Zero 

Test Bits in Mernory with Accumulator 
Branch on Result Minus 

Branch on Result not Zero 

Branch on Aesuit Plus 

Force Break 

Branch on Overfiow Clear 

Branch on Overflow Set 


Clear Carry Flag 

Ciear Decima! Mode 

Clear interrupt Disable Bit 

Ciear Overflow Flag 

Compare Memory arıd Accumulator 
Compare Memory and Index X 
Compare Memory and Index Y 


Decrement Memory by Öne 
Decrement Index X by One 
Decrernient Index Y by One 


"Exelusive-Or' Memory with Accumulator 


Increment Memory by One 
Inerenent Index X by One 
Increment Index Y by One 


Jump to New Location 





Jump 16 New Location Saving Return Address 


Load Accumulstor with Memory 

Load index X with Memary 

Load index Y with Memory 

Shift Right One Bit [Memory or Accurmnulstor) 


No Operation 
"OR’' Memöry with Accumulstor 


Push Accumulstor on Stack 
Push Processor Status on Stack 
Pull Accumutator from Stack 
Puil Processor Sistus from Stack 


Rotste One Bit Left {Memory or Accumulator) 
Rotste One Bit Righr (Memory or Accumulator) 
Return from Interrupt 

Return from Subroutine 


Subtract Memory from Accumulator with Borrow 
Set Carıy Fiag 

Set Decimat Mode 

Set Inzerrupt Disable Status 

Store Accumulator in Memory 

Store Index X in Memory 

Store Index Y in Memory 


Transter Accumulator 10 Inden X 
Transfer Accumulator to Index Y 
Trarster Stack Pointer 10 Index X 
Transfer Index X 10 Acctumulator 
Transfer Index X to Stack Pointer 
Transfer Index Y to'Accumulator 
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Steht unter der Spalte ein ”x“ so bedeutet } Andere Abkürzungen: Die folgende Liste zeigt den 6510 Befehls- 


dies, daß das en lenrechende Flag durch ! addr Adresse satz in alphabetischer Reihenfolge und er- 
den Assembler-Befehl beeinflußt wird. data Daten 8 Bit klärt die einzelnen Aufgaben der Befehle. 
Fe Addition Diese Liste wurde dem Original-Daten- 
Andere Symbole: - _ Subiraktion blatt des 6510 entnommen und ist somit - 
0 Flag wird gelöscht A Logisch UND in Englisch gehalten, da Übersetzungen in 
1 Flag wird gesetzt v Logisch ODER die deutsche Schreibweise meist etwas 
x Flag wird beeinflußt =  Logisch Exklusiv-Oder unverständlich werden. 
SPAGE Hlag wird richt beeinflußt <-- Daten werden verschoben Siehe Bild 1 


Wir wolien nun die einzelnen Befehle in aiphabetischer Reihenfolge untersuchen. 


AUG Add Memory ta Accumulator with Garıy (Addiere Speicher mit Übertrag zum Akkumulator) 





Der Übertrag (C-Flag} und das addressierte Byte werden zum Inhalt des Akkumulators 
addiert. Die Summe wird in den Akkumulator gebracht. Entsteht ein Überlauf, wird das = 
C-Flag gesetzt, andernfalls wird es gelöscht. Der Programmierer muß voreiner Addition 76543210 


das C-Flag löschen, da sonst ein falsches Ergebnis enstehen kann. NV BDIEZE 
HEX  Adressierung Bytes Syntax Fra 
bt indirekt, vor indiziert mit x 2 ADG (addr, x} 
65 Null-Seite (direkt) 2 ADG addr Beispiel: 
69 Unmittelbar 2 ADC #data ELC :Lösche C Flag 
6D . Absolut (direkt) 3 ADG addr LDA #10 ;Lade Akku mit 10 
71 Indirekt, nach-indiziert mit X 2 ADG taddr)Y ADC #20 ;Addiere 20 zum Akku 
75 Nult Seite indiziert mit X 2 ADC addıx ‚ Das Ergebnis (30) steht im Akkumulator 
79 Absolut indiziert mit Y 3 ADC addryY 
?D Abselut indiziert mit X 3 ADG adar,x 
AND And Memory with Accumulator {UNDiere Speicher mit Akkumulator) 





Dieser Befehl führt zwischen dem adressierten Byte und dem Akkumulator eine bitwei- 76543210 | 
se UND-Verknüpfung durch. Das Ergebnis der UND-Verknüpfung wird im Akkumulator yy BDIZ C ro | 
abgelegt. Dieser Befehl wird haufig genutzt, um bestimmie Bit's zu löschen. 








X x 

HEX  Adressierung Bytes Syntax Bee 
21 indirekt, vor indiziert mit x 2 AND (addr, x) Beispiel: 
25 Null-Seite (direkt) 2, AND addr LDA #%10011111 ;Akku laden 
29 Unmittelbar 2 AND #data RIKEN: 

5 -AND + %10000011 ;UNDieren 
2D Absolut (direkt) 3 AND addr - Ergebnis = 410000001 
31 Indirekt, nach indiziert mit Y 2 AND (addr}Y Ale 
35 Null Seite indiziert mit X 2 AND adarx LDA #%11110000 ; Akku laden 
39 Absolut indiziert mit Y 3 AND adarY AND #%00111190 ;UNDieren 
3b Absolut indiziert mit X Bye AND addr,X ‚ Ergebnis = %00110090 

ASL Shift Left One Bit (Memory or Accumuiater) [Schiebe Akkumulator oder Speicherbyte nach links) 


Tr EN RL NE TEE EBENEN EA BASE ERS 
Dieser Befehl verschiebt den Inhalt des Akkumulators oder einer Speicherstelle um 1 Bitnach links. Von rechts wird eineNullnachge- _ 
schoben. ist während der Verschiebung Bit 7 gesetzt, wird das Carry Flag gesetzt. 

In der Binär-Arithmetik ergibt sich durch eine Linksverschiebung eine Verdoppelung des ursprünglichen Wertes. 


m | .... Gemputhe mi | is 





kurs 








HEX Adressierung Bytes Syntax 

06 Null-Seite (direkt) 2 ASL addr 16543210 
DE Absolut (direkt) 3 ASL addr NV BDIZG 
16 Nult-Seite indiziert mit X 2 ASL add _ X xX 
1E Absolut indiziert mit X 3 ASL addı,x Dar 


. Beispiel: LDA #%01110010 ‚Lade Akku ELDA #%10011111 ‚Lade Akku 








ASL ;Verschiebe nach links ASL  ;Verschiebe nach links 
; Ergebnis = #%11100100 ; Ergebnis = #%00111110 
‚ Carry Flag ist gelöscht ‚ Carry Flag ist gesetzt 
ee ee Ve Eye —— er ee 
BCE Branch on Garry Clear (Verzweige, wenn Übertrag gelöscht ist) 
Dieser Befehl führt einen relativen Sprungbefehl aus, wenn das G-Flag gelöscht ist. "76543210 
HEX Adressierung Bytes Syntax NV BDIZGC 
90 Relativ 2 BCC data nicht beeinflußt 
Beispiele: SEC ;C-Flag wird gesetzt CL ;C-Flag wird gelöscht 
BCC %*+7 ‚Sprung wenn C=0 BCC *+7 ‚Sprung wenn C=0 
LDA #10 ;Lade Akku mit 10 LDA #10 :Lade Akku mit 10 
JMP END ;Sprung zum Ende JMP END ;Sprung zum Ende 
LDA #20 ;Lade Akku mit 20 LDA #20 ‚Lade Akku mit 20 
END ; Ergebnis = 10 END ; Ergebnis = 20 
BCS Branch on Carry Set (Verzweige, wenn Übertrag gesetzt: ist) 
Das Gegenstück zum BBC-Befehl. Dieser Befehl verzweigt, wenn das C-Flag gesetztist. 76543210 
HEX Adressierung Bytes Syntax NV BDIZC 
BO Relativ 2 BCS data nicht beeinflußt 
Beispiele: SEC ;C-Flag wird gesetzt CLC ;C-Flag wird gelöscht 
BCS %*+7 ‚Sprung wenn C=0 BCS *+7 
LDA #10 ;Lade Akku mit 10 LDA #10 
JMP END ;Sprung zum Ende JMP END 
LDA #20 ;Lade Akku mit 20 LDA #20 
END ; Ergebnis = 20 END ; Ergebnis = 10 
BEQ Branch an Resuit Zero [Nerzweige, wenn Z-Flag gesetzt ist} 76543210 
Dieser Befehl ähnelt weitgehend dem BCC-Bafehl mit der Ausnahme, daß die Verzwei- NV BDIZC 
gung ausgeführt wird, wenn das Z-Flag gesetzt ist, also das Ergebnis gleich Null ist. nicht. beeinflußt 
HEX Adressierung Bytes Syntax LDA #25 :Akku wird mit 25 
FO Relativ 2 BEQ data „geladen; Z-Flag =D 
Bra aaa re 2 a pe men oe ee re ne SET BEG %*+7 ‚Sprung wenn Z=1 
Beispiele: ELDA #0 ‚Akku wird mit Null JMP END Sprung zum Ende LDA #10 ;Lade Akku mit 10 
‚geladen ;Z-Flag = 1 LDA #20 ;Lade Akku mit 20 - JMP END 
BEQ %*+7 ‚Sprung wenn Z=1 END ; Ergebnis = 29 LDA #20 
LDA #10 ;Lade Akku mit 10 END ; Ergebnis = 10 


Literatur: 


6502 Micrecomputer-Programmierung, Peter Heuer, Hofacker Verlag; 6502 Programmierung in Assembler, Lance A. Lebenthal 
64 Intern, Angershausen, Becker, Englisch, Gerits, Data-Becker Buch; 6502/65002, Christian Persson, Heinz Heise Verlag 
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Nach dem Start des Programms mit 
„RUN“ läßt das Erklingen der Titelmelodie 
des iegendären Western „Highnoon“ 
schon einiges über den Spielablauf erah- 


nen. In diesem Spiel stehen sich in der 


glühendheißen Mittagssonne der Wüste 
Nevadas zwei alte und erfahrene Western- 
helden gegenüber. Für Sie geht es bei die- 
ser Begegnung um Leben und Tod. Jeder 
hat sich hinter den Ruinen einer alten 
Poststation verschanzt und versucht nun 
den Gegner durch einen gezielten Schuß 
zu töten. Ist einer der Revolverhelden ge- 
troffen, ist das Spiel sofort beendet. 


Revolverhelden stehen 
vor der Entscheidung °% 






Dieses Spiel zeichnet sich durch die her- 
vorragende Darstellung der Spieifigu- 
ren aus, Diese Figuren sind nämlich 
nicht über das Symbol-Kommando 
erzeugt worden, sondern sind grö- 
Ber und mehrfarbiger zu sehen. 
Tippen Sie das Programm ein 
und überzeugen Sie sich von 
dieser hervorragenden Grafik 
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gg "um mememzmzemezzzeszeen 
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von Bernard Morell 


a Er Zu U 


Initialisierung 


10 MODE 1: INK 0,24: INK 1,0: INK 2,9:INK 3,16: BDORDER 24:PAPER 0 


WINDOW 
ELS#1 

SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
GOSUB 510 


AFTER 180 


70 

100 
107 
110 
120 
130 
140 
150 
1537 
140 
170 
190 
ELSE IF INKEY$S="n. 
ÜSUB 870:END ELSE 180 


GOSUB 510 


IF pu2>10 THEN 190 





#1,1,40,1,3:WINDOW #2,1,40,4,25: PAPER#1 , 1: PEN#1 ,0 


180,255,0,0,255,16,16,16,239 
181,187,68,68,199,4,4,4,251 
182,247,8,8,255,253,33,33,222 
200,108,146,146,69,161,138,100,24 


GSOSUB 4530:605SUB 476:G05UB 720:B50SUB 5806 


"Sense mmmemmzermgenuugzez 


Haubtprogramm nn Te SE I U Ta Be u a a Da a a a DE FT EUER 


IF RND<O.S THEN 140 ELSE 130 

IF INKEY(77)>-1 DR INKEY(7&)>-1 THEN GOSUB 290:80T0 150 
IF INKEY{53)>-1 BR INKEY(52)>-i1 THEN BOSUB 360:80T0 150 
IF pul?>10 OR pu2>10 THEN B0TO 140 ELSE 110 


"SSEZZmnu2zesonHzzzemuue 


Dueil - Sieger Erssssecsgessszzumemmmezeeesmaseseuce 


LOCATE 1,23: PRINT ni$r" hat das Duell gewonnen " 
LGCATE 1,257 PRINT "E naues Spiel ? 


"j/n 1": 1IF INKEYS=" j" THEN CLEAR:GOTO 10 


THEN PAPER 1:PEN 1:BORDER O:CLS:8 


Gompute mib u # 


programme 


1970 LOCATE 5,23: PRINT n2#;" hat das Duell gewonnen " 
200 BOTD 190 


ZOF (m=e=smemrEoRTEmmeEmsSes2emZs Tod Player 2 EZEASmzszmzzmscscszeszzEssBengpmzeseee 
210 FOR i=1 TO 25:CALL 40015 
Z2D_ NEXT i 


230 pul=pulr1:LÖCATE#1 „10,3: PRINT#1 ,pul 
240 BOSUB 4706: RETURN 


249 'zErTTTermmseszemiszemmuezen Tod Flayer 1 zZERmBZESZszemimgssszmzzoereigermmmmmemze 
250 FOR i=i TO 25:CALL 40900 
250 NEXT i 


270 puZ=pu2+1:LOCATE#1 ,30,3: PRINT#2 ,pu2 

za0 GOSUB 430:RETLURN 

2989 ' = mmeaz22SI0 IS ZZ Ze fest auf Treffer Player i Se==22==smrr RS era nitnn 
290 IF ri<öO THEN yla=yi-5 ELSE IF ri>0 THEN yla=yi+5 ELSE yla=yi-l 

300 IF yila>25 THEN yila=25 ELSE IF yla<5 THEN yla=-5 

310 IF TEST (27#16-4,404-ylarl6ö)<>O THEN LOCATE 27,yla:PRINT CHR$1200) :BOSUB 870 
sLOCATE 27,ylarPRINF" "SRETURN 

320 IF TEST (28#16-4,404-yla#ri6)<>O THEN LOCATE 28,yla:PRINT CHR$ 1200) :605UB 870 
:LOBATE ZB,yla:PRINT" "RETURN 

330 IF TEST (29#15-4,404-ylaxl&)<>0 THEN LOCATE 29,ylasPRINT CHR#$ (200) : BOSUB 870 
:LOCATE 29,yla:PRINT" ":RETURN : 

340 IF TEST (496,404-yia#16)<>0 THEN LOCATE 31,yia: PRINT CHR# (2009) :BOSUB 870:505 
UB 880: G0SUB 210:FOR i=i T0 5:50SUB SIO:NEXT i:RETUR 


N 
350 LOCATE 29,yla:PRINT CHR$ (200) ıGDSUB 870:LDCATE 29,ylasPRINT" "RETURN 
3597 '=zussesorzmesmasszuze Test auf Treffer Player 2 zmrmmmzommresegemzememmsmmmu 


360 IF r2<0 THEN y2a=y2-5 ELSE IF r2>0 THEN yZ2a=y2+5 ELSE y2a=y2-+1 
370 IF yZa>25 THEN y2a=25 ELSE IF y2a<5 THEN y2a=5 
380 IF. TEST (11*16-4,9404-yZa#riö)<>0O THEN LOCATE I1,yZ2a:PRINT EHRS (200) :G0SUB B7O 
:LOCATE 11,yZ2a:PRINT" "RETURN 
390 IF TEST (10#16-4,404-yZ2ariö)<X>0 THEN LOCATE 10,y2a:FRINT CHR$ (200) :90SUB 870. 
sLOCATE 10, y2aı PRINT" "RETURN 
400 IF TEST (9#16-4,404-y2arlö)<>O THEN LOCATE 9,yZ2a:PRINT CHR$ 1200) :B00SUB 870:L 
DOCATE 9, y2a: PRINT" ":RETURN 
410 IF TEST (98,404-y2ax16)<>0 THEN LOCATE 7,y2at: PRINT CHR$ (200) :GD0SUB 870: 605UB 
B80:808SUB 250: ı FOR i=ı TO 5:GD5SUB SIO:NEXT i:RETURN 
420 LDCATE 9,yZaıFRINT CHR$ (200) :G0SUB 870: LOCATE 97,yZasFRINT" "RETURN 
429 'zszzzmrzaummzzrmuszezezen Ausgabe Player 1 Zusam maurzegemp PS mmzozzueegoum 
430 RESTORE 770:MDOVE 90,100: y1=19 i 
440 FOR i=i1 TO 127 
450 READ z1,22,23:PLOTR z1,22,23 
260 NEXT i:50SUB 890:RETURN 
449 'zmuunczsganzzzezezzun Ausgabe Player 2 Aa an Zum En Sb Dat Es m u IN IE 2 ZU Du BO SE I ER I SE BEN DES OR 
470 RESTORE BiO:MUVE 490,100: y2=19 
450 FÜR i=i1 TO 142 
490 READ z1,22,23:PLOTR z1,22,23 
500 NEXT i1:G0S5UB 870: RETURN 
509 'zeezznceszmeemzauen Bewegung “. Schussrichtung Ben Ze a m er I I IE BETEEES SE EI SEC 
510 IF INKEY(72)>-1 AND y1>6 THEN yieyi-1;POKE 40001 ,%1:1CALL 40000 
=20 IF INKEY(48)>-1 AND yZ2>& THEN yZ=y2-1:PDKE 40016,&1:CALL 40015 
530 IF INKEY(49)>-1 AND y2<24 THEN y2=yZri:POKE 30016,%0:CALL 40015 
540 IF INKEYt7S)>-1 AND yi<24 THEN yi=yl+1:PDKE 40001 ,&0:CALL 40000 
550 r1=0:ri=srti+tINKEY (723 >-1) -tINKEY{733 3-1) 
560 r2=0:r2=er2+ (INKEY (ABI >-1) -INKEYLSN 2) 
570 RETURN 
S79 ' ZEZEEIRSSESEEBEIERUR Hindernisse setzen Eat am zur ti a ER To I De I SER BE I ED Su N a Te 
s80 PAPER Z:FOR ii=i1 TO 3 STEP 2:FOR i=7 TO 24 

.590 IF RND<O.2 THEN LOCATE F#ii,isPRINT EHR$ (INT {RND*3) +1809 J CHRE INT IRND#33 +180 
I) 3 CHR# {INT (RND*#S)+1803 ELSE IF RND<O.S THEN LOCATE 9 
#*ii ,izPRINT CHRS{INT(RND*3) +180) Hs CHR& INT (RND#3) +180) ELSE IF RND<O.4 THEN LOCAT 


“6 | Compube mih | 95 


Programme 


E 9#1i1 ,i:PRINT CHRSCINT{RND#3) +180) 
600 NEXT i,ii:PAPER OÖ: RETURN 


609 '"„_=m===-2e=m=mmssmzemzmumen kindow 1 beschriften ze=srzseresmzzeernmuneeenee 
619 PRINT#1," BUELL von Bernard Moreil":PEN#1,3 
620 GOSUB S50:LOCATEH1,2,23PRINT#1," "zni$:LOCATE#1 ,22,2:FRINT#1," "ın2# 


630 LECATE#1,1,35PRINT#1,"Punkte : "3pul:LOCATE#1 ,20,3:PRINT#1,"Punkte : "zpu2 
640 RETURN } 

#650 LOCATE 3,10: PRINT"Dein Name ?":GOSUB 430:LÜCATE 3,24: INPUT ni# 

640 IF LENtnI#) >10 THEN CLS#2:C0TD0 550 j 

870 LOCATE 23,10: FRINT"und Dein Name ?":BOSUB 470:1.0CATE 23,24: INPUT n2$ 

680 IF LEN(n2#$)>10 THEN CL3542:6G0T0 5706 

690 CLS#2: RETURN 

6997 'merzzmzzmmmmarmeruonen Dsta’s fuer Scrollroutinen Be Sad KEEP IE ES EOS EEE EN ZI IE m DS RE NEE 
700 DATA %&6,&1,53e,%0,521,83,85,811,817,8&7,bcd,%50,&bc ,„&c9,&0 

710 DATA %6,%1,%3@,&0,%21,83,814,%11,%17,&1# ,&cd,&50 ,&be ,&c9,&0 

77 '"zmurriessmemmzemzemen FPoken der Scrolilroutinen BREUER a A ED KR I DR UN De N I DIR FE RR 
720 RESTORE 700:FOR i=40000 TD 40014 

730 READ z:POKE i,2:NEXT i 

740 RESTORE 710:FOR i=40015 TO 400239 

750 READ z+PÜKE i„zsıNEXT i 

760 RETURN 

763 zen Data's fuer Player i+2 FErEZZSuzzeracemegzerzzzmsen nn 
770 DATA 2,0,1,4,0,1,2,0,1,0,241272,0,1372,0,1, 1,0, 2: 1,2,0,1472,2,34240, 342 
„0,3,0,2 „3. -2, ö, 3, -2,0,3,-2,0, z, 0,2,3,2,0, 3, 2, 


-2, 
0,342, 
0,8,2,0435052,1,-2,0,1,=2,0,1,=2,0414-2,0,3,0,2,1 
2 _; 
ö 
7 


ie FA 

2 

2,0,2,2,0,2,2,0,2,2,0,2,2,0,2 
780 DATA 10, 2, 2,2504,24,2,0, 2, Pr Per Pr ee 2, 0,142,%; 
„1z72,0,1,72,0, 1.22 ö, 1, o, 5, 1umıma, 3, -2 1, -2 1 
1250,13-2,0,14-2,0,14-2,0424-250,25—250,23=2,2, ’ 
2,0,1572,0,137250,31,-2,0,2,72,0, 2724242 


14250413250, 35240415052434642 
yuyhh 
242 0,2,2,0,1,2,04,1,2,0,2,2,2,1,7 


730 DATA 2,041,2,0,342,0,34-6,2,142u0,342204332,033,440,3424043,-842,342,0,3,2,0 
43,240,3,2,0, 3,724 24 32720 -2, 0 135:72,9,34,72,0,1,72 
,0413-2,0,1,-2,0,1,-2,0,1,0,2,154,0,1,2,0,152,0,1,2,05142404332,0, 3,270, 3,-242,3 

‚„2,0,1372,0,1,72,0,0,72,0,0 

800 DATA 0,25,14,2,0,0,2,0,142,04,13240415242714=240413-240,13—2,040,-2,0514-2, 0.15 
-4,2,1,2,0,1,2,0,.1,2,0.1.2,0,1.6,0.1,0,2.1,-8,0,1,-2 

Op1404 24 

910 DATA 2,0,1,042,1424-2414230,15250,15432413-2,0,19=240424=2,04240524242,042,2° 
224-2042, 240, 272 0429724242200 520250424 2504242 

ee ea ae 
ı242,0,2 


820 DATA 2,242, -2,0425-2,0,14-240,3472,0,0,72,0,3,72,040, 7250439240534 052434250 


F 
‚0,2,0,3,2,0,0,2,043,2,0,0,2,0,342405122,0,2, 0424 34- 
2,0,3,-250303-2,0433-240503-2,0,34-2,0,042,0,342,2,3,240,052,0,342,0,0,2, 0,3,2, 
0,0,2,0,3 
830 DATA 0,2,3,-2,0,34-2,040,-2,0415=2,0, 14-25 04147 240413 =25 0,137240,1,-2,0,3,-2 
„0,17-6,4,1,2,0,1,2,0,1,2,0,1,0,-2,342,0,3,2,04145 2,0 
1424041425041, 2,0,1,2,0,1,2,0,142.0:3.0.2.1.-2,9,.1.-20,1,-2,0,1,0, 5240,42, 
6,3, 2,2,3,-2,0,3,-2,0,3,-2,0,3,-2,048 | 
840 DATA -2,0,3,042,3.2.0,5.20,1.2.0 2... 2. 20 
6,2,1,2,0,1,2,0,1,2,0,1,250,14250,14524 0515240419242; 
1,02 0,1,-2 O4, -2,.0,3,72,0,3, -2,0,3, -2,0,1,-2,0,1,72,0,1,0,2,146,0,1,2,0,1,2,0, 
152,0,1,4,0,1,2,0,1,0,2,1,78,0,1,72,0,1 
850 DATA -2,0,1 
BEI '"=zasezememsezezezecusenm Ger aeusche ZEZUBZTZZERZZSrTZZnmmzesszzesz zz 
870 SOUND 2,2000,15,15,,,15:FOR i=0 TO 500 STEP 30s30UND 3,1+i,1+INT{i/160) ,12:N 


EXT: RETURN 
880 FOR ii=6 TO 1000 STEF 200:FOR i=i TO 500 STEP 15:SOUND 3,i1irti,1,12:NEXT i:NE 
XT ii:RETURN i 

BIO "„zmeemmezmememzemuennmmmm Musik m m DD Di u em I ae A EIS A 


700 BOUND 1,284,30,12:50UND 1,213,20,12:SDUND 1,190,10,12:S0OUND 1,167,10,12 


a | Ä GCompube mib = 


werkstatt 


910 SDUND 1,1897,10,12: SOUND 1,159,30,12 

920 SOUND 1,169,20, 12: SDUND 1,190,10,12: SCUND 1,7213,40,12:50UND 1,2000,20,1 

730 SOLND 1,284,30,12:5DUND 1,213,20,12:50UND 1,170,10,12: SOUND 1,167,10,12 

940 SOUND 1,189,10,12:SOUND 1,157,50,12 

550 SOUND 1,169,20,12535DUND 1,19060,40,12:5SDUND 1,2000 ,20,1 

FAQ SOUND 1,237,30,123 50UND 1,179,20,12:5DUND 1,1597,10,12:80UND 1,142,20,12 

370 SOUND 1,159,10,12:50UND 1,134,.30,12 

990 SOUND 1,142,20, 12: 50UND 1,159,10,12:50UND 1,179,40,12:5DUND 1,2000,20,1 

990 SOUND 1,239,30,12:50UND 1,179,20,12: SOUND 1,159,10,12: SOUND 1,142,20,12 
1000 SDUND 2 159, 10, 12: SOUND , 134,30,12 j 
.1010 SOUND 1,142,20,12:50UND 1,159, 40, 12:RETURN 

10920 ER TTHRRTSTRSARRSHSHHHHIHSRESSSISSIHISIESESHE 
1030 a8 *# 
1040 ’## Dateiname =» DUELL / Start mit RUN / HIMEM-FRE (""} = 89347 *% 
1050 '#%* *% 
19£0 


M: dem Programm „REM-KILLER“ sind 


Sie in der Lage, auf einfache Art und Wei- 


se, die in einem Programm vorkommen- 
den „REM’s“ zu entfernen. 


Nach dem Laden des „REM-KILLER“s 
starten Sie das Programm einfach mit 
„RUN“, 

Daraufhin erhalten Sie den Begrüßungs- 
bildschirm, von dem aus Sie durch einfa- 
chen Tastendruck in das Hauptmenue ge- 
langen. 

Alle Funktionen dieses Programmes erfol- 
gen menuegesteuert. 


Zum Menuepunkt „Programm laden" wä- 


105 
i10 
120 
1.0 
140 
150 
120 
170 
180 
170 
200 
ziö 
= 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
30 ELEARSMODE i:INK 0,1: 
245 LOCATE 2,5: FRINT EHRE ( 
250 FRINT" "+CHRE(ISE)IH" 
. 2&0 LOCATE 
270 LDCATE 
280 LOCATE 


Es Ze 22 22 22 Zu 22 Ze > 


INE. 


2,7:FRINT CHRE (141) +5TRINGE (IS 
Z,11:FRINT" Copyright by 
1B,12: FRINT"Salinenstr. 


re noch zu bemerken, daß der „REM-KIL- 
LER“ nur Programme einladen kann, wel- 
che mit „SAVE » Filename «, A“ abgespei- 
chert wurden. 

Außerdem ist die Länge des zu ladenden 
Programmes auf maximal 500 Zeilen bzw. 
den zur Verfügung stehenden Speicher- 
platz beschränkt. 

Entfernt werden alle „REM's“, sowohl 
ganze REM-Zeilen, ats auch REM’sam En- 
de einer Zeile. 

Ebenso werden auf Wunsch die ge- 
bräuchlichen Hochkomma-REM'’s (z. B.: 
10’) entfernt. 

Nicht entfernt werden REM-Zeilen mit 


Copyright: 


; HRRRRHRRRSRRSRISSHRISESGRRSSISREISRBEIBIISISIEIDIESEIETRIESSE RES RG RERÄEIIIIEN 


REM-KILLER 


für Schneider CPG 464 


zwei Leerzeichen zwischen der Zeilen- 
nummer und der REM-Angabe (z. B.: 10 
REM). 

Bei der Funktion „Listen“ wäre zu bemer- 
ken, daß es nicht möglich ist, in dem an- 
gezeigten Listing zu editieren. 

Mit einem Druck auf „ESC" kann das Li- 
sting angehalten werden, durch erneuten 
Druck auf irgendeine Taste wird es weiter 
gelistet. 


Wird „ESC“ zweimal gedrückt, wird das 
Programm abgebrochen. Bei einem er- 
neuten Start mit „RUN“ ist das geladene 
Programm dann allerdings verloren. 


KAKKTERRIIERTN THF TH N TE NH THINK HT HEHE HH FE NN RA RN EHRE 


Nauheim 


Pe ee 


PIERRE EREDEERELTEUD LEEREN DEE E22 0 22 20202 22 2 2 22 272 2 2 2 2 22 22 LU 2 22 22 


BEGRUESSUNGSEBEILDBSCHIRM 
BRRRRRRSBRRIERRRRRSRRTRSIRSSRSRBIHSHETSHEESISHESHIESIERSEER EEE 


1,24: BGRDER &:FEN 1:FAFER 055YMBOL AFTER 


Wor=te] 


35) +5TRINGE (76 ,„EHRFLZIIIHCHRE (13T) 


RE M = R I 


Andreas EBarufe”" 
EGr 


Sompuhe mib 


= E20. "EIER 
„EHRE (1403 3 HCHRE (142) 


. "4CHRE (LIEB) 
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270 
300 
S10 
32 

330 
40 
350 


LOCATE 18,13: FRINT"3325G Bad Nauheim" 


LOCATE 3,19: FRINT"Start:"3:iINK 72,74,4:5FEED INE 70,20:FPEN 2 
LECATE 10,19: FRINT"irgendeine Taste druecken":PEN 1: REM test 
CALL 26618:60T0 450 


REM Frogramm einlesen 
ELEAR:DIM a8 (500):CL55;LOCATE 1,10:FRINT"Bitte Band einlegen und positioniere 


n":ramet="":FRINT".„..neiter mit >ENTER<S":CALL %EBi18 


360 
>70 
380 
ann 


OFENIN name 

IF EOF THEN 400 

LINE INFUT #9,a#(a3sa=at1:iIFf a=561 THEN ECLS:LOCATE 1,10:FRINT"Das Frogramm k 
nicht":PRINT"geaendert werden, es ist zu Jang.": 


FRINT"..„.weiter mit >ENTERZ'"sCALL %EBR18:60TD 230 


3970 
400 
410 
420 


GOTO 370 

CLOSEIN 

FOR a=0 T0 500: IF LENtaFla)}>0 THEN b=a+l 

NEXT a:CL5S:LOCATE 1,20:FEN DZ: FRINT"RBitle Recorder abschalten !"sFEN 1:L0OCATE 


1,10:FRINT"Ich habe":b;" Frogrammzeilen geladen":FR 


INT: 


430 
440 
AS0 


FRINT".„.. „weiter mit >ENTERZ":ZCALL %&BBiB 

REM Arbeitsblatt 

HREM === =2=-=- 2 ==2=2=s22esemeusmesmmmammemammm ass sessnm namen nenn 
CLS:LDCATE 2,1:FRINT CHR$ (1353 +5STRINGE (34 ,„CHRE (I FII I HCHRE CI IFIEFRINT" "+CHRE 


(1333 +" RE M = KL. LE ER "+CHRE# (15 
83: LOCATE 2,3:PFRINT CHR#FIL1ANDD +5STRINGE (76 ,CHR# 1403 I +CHR# (1423 


460 
470 
4890 
470 
soo 
sid 
220 
wBie) 
540 
Sc 
Sss0 
370 
S60 
Ss70 
00 
610 
520 
550 
640 
450 
[= 1016) 
570 
2118) 
sro 
790 
710 
720 
730 
740 
750 
7&n 
770 
790 
770 
Don 
810 





LOCATE 5,&:PRINT"O = zu aenderndes Frogramm laden“ 

LOCATE 5,8:FRINT"1 = "+CHRE (TAI Hr" REM-Zeilen"+CHR& (T4) +" entfernen" 
LOEATE 5,10: PRINT"2 "+CHRE (34) +" ° -Zeilen"+CHREiZA)+" entfernen" 
LOCATE 5,12: PRINT"E geaendertes Frogramm abspeichern" 

LECATE 3,34: FRINT"4 geaendertes Frogramm listen" 

LEICATE 5,16: FRINT"S Frogramm beenden" 

LOGEATE 5,20: PEN Z:PRINT"Bitfte waehlen Sie „..-"ıiFEN 1 

bF=1INEEYE: IF b£="" THEN 53 

IF b#+="0" THEN 350 

IF b#="1" THEN 830 

iF b+="2" THEN 710 

IF bE="5" THEN 830 

iF bt="4" THEN GGSUB 7979: 60T0 450 

IF b£="5" THEN CLS:END 


I | 


GOTO 530 a 
REM "REM" - Rens entfernen 
ELS:LOCATE 3,10:PRINT"Ich entferne alle "+CHR#F {343 +" REM "S"+CHRE (34) 


FOR a=0 TO b 

c=Dec= INSTRÜl,aFfa})," REM')SIF c= LEN{STRE (VAL taFla)ı)) THEN afta)="" 
c=ßic= INSTR(l,a# (a) „":REM "I:IF c>9 THEN atfta)=sLEFTFlafta) ,c-l) 
e=0:c= INSTRIl,a#Fita},": REM ")EIF c>O THEN atfia)=LEFTFIa8 (a) ,c-1) 

NEXT a:G0T0 450 x 


REM "rt — FRems entfernen 

REM SSH smzmzszcmecococoemgegmmemm an anne seem nsbeoanen nennen mn 
ELS:LOCATE 3,10: PRINT"Ich entferne alle "+CHR#F(343+" ° "+CHRE(IM)H"REM'S” 
FOR a=0 TG b ; . 

ce=b:c= INSTROL,aFia)," "")esIf c= LENISSTREWALfaFla)))) THEN aftal="" 
c=0:c= INSTRIL„aFla),"s "3: IF c50 THEN aftla)=sLEFT£(atta),,c-1) 


c=ösc= INSTRIil,aFia),": 'WM)sIF co THEN afta)=LEFTFiaF la) ,c-1) 

NEXT a:SOTD 450 

REM L ı 5 t e n 

REM ====S2eremremseoceoocaesceumcmoemcemoooeeccecacomaoesemmmememooeeoeloooeresum 
MODE Z3 FOR a=0 TO b=:IF LENfa#la)>>ö THEN FRINT afla) . 

NEXT:MOBE 1:RETURN 

REM Frogramm sbspeichern 


Compute ib — — = 





programme 


8270 REM 


BI0 ELSE:LDCATE 1,10: FRINT"Bitte Band einlegen und po 


UT’'Wie soll Ihr Pros Sum heissen 


"znameFrOL5 


sitimmieren":FRINT:FRINT: INF 


840 LOCATE 1,10s5PRINT"Ich speichere Ihr Frogramm "tnamef: ERINT""LPRINT" Bitte war 


ten... ":PRINT"" 

5650 OFENDUT name 
BO 
2970 
BB0 
870 
ER<":CALL &BB18: EoTO +50 


FRINT#F ,aff{a) 
NEXT a:CLDSEGUT 


CRASH 


FOR a=0 TO 500: IF LEN t(aFia);“ 


CLS:LOCATE 1,10: FRINT’Bitte Recorder abschalten 


=: THEN Ban 


Im. FRINT"..„.neiter 


mit FENT 


Schneider GPG 464 


% Ein Geschicklichkeitsspiel für zwei Personen %* 


Bei diesem Spiel müssen Sie versuchen, 
den Bewegungsraum Ihres Mitspielers 
einzuengen. Jeder Spieler steuert mit Hilfe 
eines Joysticks einen Punkt auf dem Bild- 
schirm. Beim Bewegen dieses Punktes 
hinterlassen Sie eine Spur, die für Ihren 


Gegner ein Hindernis darstellt, an dem er 
nicht vorbeikommt. Sie haben also die 
Möglichkeit, den Bewegungsspielraum 
Ihres Spielpartners erheblich einzuengen 
und ihn festzusetzen, Sollte jedoch eine 
Berührung mit dem gegnerischen Hinder- 


nis unumgänglich sein, bedeutet dies den 
Abbruch des Spieles. Sie müssen deshalb 
mit größter Vorsicht und viel Geschick 
vorgehen, um ihren Mitspieler besiegen 
zu können. 

Gestartel wird das Spie! mit dem Befehl „RUN“. 


MUNTINEIRNWII RENNEN NENNEN ERINNERT ERNEUT EUTIN ESTER FRE 


1 

2 ++ 
5 r* 
E er © 7 = 
5 


ERASH 


von 


Bernard Morell 


ER 
rr 
2 


BERERERNERREF TERRA I TE THERENEFEH FH FERNER HN REIHE 


7 BERUURRUTENENE HEN 


Farbinitialisierung 


RUHE 


10 MODE 15INk 0,25: INK 1,0:INK 2,7:BORDER O:PAPER O:PEN 1 
20 IF pro=2 THEN END ELSE BOSUB 380 


7 


OREEHNERKENT ER EHE EEE 


Hauptprogramm 


KERRRERRRARRENINT TUNING 


30 FOR runde=1 TO 19: st=0:x30=10:x31=30: yO=10: yaO=10s yal=-10: yl=10: sprungü=1l:spru 


ngi=2 


SO WHILE st=0:50SUB 150:G05UR 250 
60.IF (xispxal DR yi<>yal) AND TEST(x1#18-7,400-16%y1)<>0 THEN BOSUB 480 
70 IF (nO<>xa0 OR yOs>yao) AND TEST (x0#1&6-7,400-165*y0)<>0 THEN BOSUB 490 
80 IF xO=x1 AND yO=y1 THEN IF RND<O.5 THEN GOSUB 480 ELSE IF RND>=0.5 THEN GOSUR 


470 


0 IF st<c>1 THEN GOSUB 340: BISUB 360 


100 WEND 


120 LOCATE 10,10: PRINT"Das war's wohl 


1tgFOR is1 TO 8sFOR ii=1 TO 940 STER 30 


SOUND 1, 100% +11-99, 1,15:NEXT ii,i:FOR i=s1 TO SO0:NEXT i 
130 ELS#s IF pro<i THEN 600 ELSE NEXT runde 


137 


TORE 


. Spielende 


KERNE HEHE NH 


139 CLS:ELDEATE 10,10: PRINT"Neues Spiel ? E j/rn 3":LOCATE 10 „3: PRINT"Sieger ist P 
layer ";3:IF pi6>pll THEN FRINT "1" ELSE ifplO<pli THEN PRINT "2" ELSE PRINT "kei 


ner" 

150 IF INKEYSeN j" 
G ELSE 150 

IE EEE 
i40 REM JOY (0) 


DR INKEYS="J" 


Positinnsveraenderung Player 1 


170 SOSUB 500:0N sprungO GOTO 180, 170,200,210 


GSompupe mi 


THEN 20 ELSE IF INKEY$= 


"pn" OR INKEYS="N" THEN 40 


RERRERIET RESTE N INN 
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programme 


186 x0=xa0+1:BCTO 220 

190 x0=xa0-1:60T0 220 

200 yO=yadri:BOTD 220 

210 yOzyao-i 

220 SOUND 2,10,3 

240 RETURN 
ZI 7 Ve Fositionsveraenderung Player 2 EEE EN HEHE 
250 REM JOY (2) 

260 GOSUB SS0:CN sprungi SOETO 270,280,290,300 

270 „i=kal+ti:65oTD 310 

280 »1=xal-1:B0TD 310 

270 yl=yal+l:GOoTO 3109 

300 yiryal-i 

s10 SOUND 3,20,3 

330 RETURN 

337 RHEIN Ausdrucken von Player 2 WEREERERRR ER ERFREUT EHER 
340 LOCATE zal,yaisPRINT CHR# 2543: LOCATE „i1,y1:FRINT CHR#I248+1NT {RND#Z}) 

350 salaxliıyai=yl:RETURN 


Sa RHEIN Ausdrucken von Player 1 FREE TER 
sec LOEATE zaö,yaßıPEN Z2=FRINT CHR# (254) :LOCATE x0,yO:PRINT CHR&(ZAB+HINT (RND#S) ) 
ıPEN 1 

370 xa0=4 0: yal=yO:RETURN 

377 0 RR Initialisierung „‚Anfangsbild Be PR Fr 2222 2022 22 22272 


380 ' Symbole 

390 SYMBOL Bin 252 

400 SYMBOL 2 255,129,129,129,129,129,129,255 

410 CLS:PEN Teens 2sFOR u=1 TOD 39: L0CATE u„isPRINT CHR$ (254) 1 LICATE u,2S: PRINT 
CHRS$ (254) ı NEXT u 

420 FOR u=1 TD 24: LDOCATE 1,u:sPRINT CHRS (254) 3 LOCATE 40 ,us PRINT CHR& (254) :NEXT u 
430 LÜCATE 10,1:PRINT "Player 1s":LDCATE 24,1:PRINT "Player 2:" 

440 LOCATE 20,1: PRINT "O"4LDOCATE 34,14PRINT "O":PEN i:PAPER 0 

450 WINDOW #1,2,39,2,24 

250 plüö=0:pli=0 


470 RETURN 
279 RR Tod Player 2. Sees 
+ 


460 FOR i=1 TOD 20:LDOCATE xal,yalsPRINT CHR#(200+1 ):5DUND 1,1*50,4,15,,,13ENEXTıs 
t=1:pl0=plOr1:PAPER 2:LOCATE 20,1:PRINT plO:PAPER OÖSsRETURN 

48970 RR Tod Player 1 HHBBRHHRBHEE EEE EHER 
490 FOR i=1 TO 20:LDCATE xa0,yaOı PRINT CHR$(220-1):50UND 1,1#50,4,15,,,13:NEXT:= 
t=1spli=spli+1:PAPER Z:LDOCATE 34,1:PRINT pli:PAPER O:RETURN 

497 RHEIN Joyabfrage Player 1. essHtssS RSS HIHI 
500 IF INKEY(7Z2)>-3 THEN sprungo=4 ; 

s1i0 IF INKEY(733>-1 THEN sprungüö=3 

320 IF INKEY(74)>-1 THEN sprungüs=? 

56 IF INKEYi75)>-1 THEN sprurgü=si 

540 RETURN = 

Lt 5 Ze 22 220 5 2 22 5 2052572020 2272.203 Joyabfrage Flyer 2. Hs HRRSRHRSRHORHRERIIE RE 
„so IF INKEYi4E)>-1 THEN sprungi=ä 

=s0 IF INKEYI4N)>-1 THEN sprungi=3 

370 IF INKEYISO) 5-1 THEN sprungi=2 

=30 IF INKEY{(SI2>-1 THEN sprungi=l 

570 RETURN : 

EFF! BERUHEN ER HERE Titelbild BREUER RE ERR HEHE TR 
Bol wOaslüıyOa=d 

8i0 RESTDRE &70 

&20 EiS#1:FOR i=i TO Si 

630 READ x0,y0O . 

640 GOSUB FZ40:NEXT isprospro+l 

&50 LOCATE 20,1&:PRINT "von Bernard Morell" 


se | Compure mik | sl 








%50 IF INKEY$S="" THEN 460 ELSE CLS#1: 
ERERTERHRURHHURERHNRRETR 


[-)- 2 Zu 


GOTO 20 
Data’s 


KRAFT TR HENRI REEINRR 


670 DATA 10,8,10,7,9,7,8,7,7,736,745,7,5,8,5,9,5,10,5,11,5,12,6,12,7,12,8,12,9,1 


2,10,12,10,11. 


&B0 DATA 12,12,12,11 ‚12,10,12,9,12,8,12,7,13,7,14,7,15,7,15,8,15,7,15,30,14,10,1 


5,10,14,11,15,12 


590 DATA 17, 12, i17,11,17,10,18,10,19,10,20,10,20,9,20,8,20 „7,19, 7,118,7,17,75, 17,8, 


17,9,20,11, 20, 12 


700 DATA 22, 12, 23,12,24,12,25,12,25,11,25,10,25,9,24,9,23,942249, 22,84 22,7523,75 


44.,7,25,7 


719 DATA 27,7,27 852727427 ,10,27,11,27,12,28, 10,27,10,30,10,31,7,31,8,31, 72.531,10 
ee 11,31,12,31,13 


ro *“ % Kleinanzeigen 


Biete an Hardware 


k%+%k SENSATIONELL; Zusätzlaufwerke für 
Schneider CPC-464 und CPG-664 Ari 
Im Gehäuse und mit allen Kabeln | 
40 Track / einseitig 549,- DM &3”/40Track/ 
einseitig 399,- DM 


‚KDS-COMPUTER-VERSAND, Kornsiraße 28, 


5800 Hagen 7, Tel. 02331/400601 . 


“...© Verkaufe VC 206 ..s©@ 
Mit 12 Modulen /1 3KSuperExpander/t 8K 
EPW/B Büchern /6 Spielkassetten /für nur 
600 DM. 

Stefan Sommer, Josephskirchstr. 13, 6900 
Fim. 50, Tel.: 526991 


SCHWEIZ: Demo-Geräte Schneider CPC 


grün oder color mit Joystick und Disketten- | 


station superpreis. Tel.: 01/462 1957. COM- 
PUTER MARKET, Meinrad-Lienert-Str. 15, 
Zürich, Po 17-21 Uhr, Sa 19-16 Uhr 


NERK VC-20 mit 12 Modulen, 1 3K Super 


Expander, 1 8K Erw., 8 Büchern und 6 Spiel- 
kassetten für 600 DM, Stefan Sommer, 
Josephskirchstr. 1B, 6000 Ffm: 50, Tel.: 
526991 


VALCOM 1-RS 232/V. 24-Schnittstelle für 


Ihren Schneider CPC 464. Einführungspreis 


VALCOM 1+ Software + dataphon S21d nur 


DM 538,-. Info gegen DM 1,30 bei Ihrem 
Schneider-Spezialisten VALC Computer 


GobR, Waaggasse 4, 8230 Bad Reichenhail 


Auftrag für Gelegenheitsanzeigen i in „Compute mit,‘ 


Name und Adresse 


An „Gompute mit..." 
Tronic-Verlag 
Postfach 

3444 Wehretal I 


Unter der Rubrik „Kleinanzeigen"- 
veröffentlichen wir Gelegenheits- 
anzeigen für Verkaufsangebote, 
Kauf- und Tauschgesuche, Kon- 
taktaufnahme bzw. Erfahrungs- 
austausch usw. 


Aktuell: 
Unsere Preise für „Kleinanzeigen“: 
Jede Kleinanzeige nur 10,- DM. 


Unterschrift 


Ich wünsche folgenden Text zu veröffentlichen: 
(BEE I ech 
Free 











Jede gewerbliche 
Gelegenheitsanzeige nur 15,- DM 
{dürfen nicht unter Chiffre erschei- 
nen) 

Eine Veröffentlichung erfolgt nur 
gegen Vorkasse! 


| A Se ee 
af Eee Pe per [er 


KEIN DSEITEIEEIEEREREREERDENBENDEN 
[BE3 BORN DR IE a 2ER Eee I RE BOB: De DR | 


BB IN Baal a: BR BRIAN IB I aan een RN 





= Fre epe ee ee re ae] 





a ES ER EA BE 


Zutreffendes ankreuzen 


Kleinanzeigen jetzt 
noch preiswerter 


OD Tausch O Versch, 
O Kontakte Ö Chiffre 


suche O Software suche © Hardware " 
biete an O Software biete an O Hardware 
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Suche Hardware 





CPC 464 & Suche dringend billigen Matrix- 
drucker. Angebote an Markus Gebhard, Mar- 
komannenstr. 40, 8000 München 70. 





Verschiedenes 





2. Bergischer Computerflohmarkt am 22. 
September 1985. Eine Wuppertaler Buch- 
handlung veranstaltet am Sonntag, den 22. 
September 1985 von 11-17 Uhr (Wuppertaler 
Stadthalle) den zur Zeit großten deutschen 
Computer-Flohmarkt. Angeboten werden 
soll alles, was mit Computern zu tun hat. im 
Rahmenprogramm wird unter anderen der 
neue ATAR! 520 ST sowie die Computergrafik 
verschiedener Rechner gezeigt. 


Disketten, Cassetten, Zubehör: 

10 Disk. 5.25” ss/dd nur 54,00 DM, 10 Disk. 3” 
(für Schneider} nur 125,-- DM! Ab 100 DMfrei 
Haus! Wo gibt's das? Natürlich bei Dietmar 
Brüggendiek, Software, EDV-Zubehör, Post- 
fach 520119, 4600 Dorimund 59. Preisliste 
kostenlos! 


@ Sensation!@® Unser brandneuer Katalog ist 
da! Mit viel Hard- und Software für Ihren C64/ 
128/VC26! Supersonderangebote: Spiele, 
Adventures, utilies, User, Interfaces, Aces- 
soires u.v.m.! Z.B.: DFÜ-Interface Thermo- 
control, DiscAid, Superaction mit White 
Shark etc! Gleich anfordern gegen 1,60 bei: 
CompVersand, U. Tiedau, Ölmühle 27, 4270 
Dorsten 1 


Suche Software 


CPC 464: Suche Kassetten u. Erfahrungsau- 
stausch. Jede volle Kassette an mich kommt 
mit Info-File + Programm voll zurück. P 
Anlehle, Brenner Straße 42, 8600 Bamberg. 








ECI6 a Cı6 A Ci6 A Ci6 Kk Ci6 
Suche Programme {auch Listings) für GC 16 
{es können Spiele als auch Arbeitspro- 
gramme sein). Ich verkaufe auch das Pro- 
gramm „Catacomb 5" für GC 16/Plus/4+ 
C64. Ich würde dieses Programm auch 
gegen anderes C 16-Programm tauschen. 
Adresse: Lars Mathias, Am Roggenkamp 159, 
4400 Münster. Tei.: 02501/4104. 


SUCHE Programm für VG 20 Grundv. Liste an 
M. Soltau, Auf der Höhe 2, 4152 Kempen 3 


Biete an Software 





COMMODORE 16/116: Wir haben die Pro- 
gramme die Sie suchen! Adventure / 


Arcade/Strategie etc. Infos bei: Andreas 


Bachler, Blücherstr. 24, 4290 Bocholt. 
Außerdem: Die G 16/116-Mappe voll mit Infos 
f. nur 6,00 DM oder das Computer-Poster f. 
sage und schreiben 2,50 DM sofort hier zu 
bestellen! ; 


CPC 464 E11 Verkaufe selbstentw, Spielprg. 
auf Kass. Info gegen Rückporto. Preis n. Ver- 
einbarung. Jochen Koch, Haustr. 23, 7401 
Piiezhausen, Tel. 07127770348 


kAk%k C16/116 SUPERSPIELE kur 
info kostenlos bei Hannes Kaltenbach, Priei- 
mayerstr. 16, 7990 Friedrichshafen 1 


AkkHCPC 464 Super Lernprogramm x * 


%*%*k für englische Vokabeln und unre- k% 
%* gelmäßige Verben. Sie können selbst %* 
Wörter eingeben und auf Kassette abspei- 
chern. Das Programm kostet auf Kassette nur 
14 DM mit Beschreibung. Anzufordern bei: T, 
Schray, Altenbachweg 81, 7120 Bietigheim- 
Bissingen. 


* Verkaufe C-64-Spielepokes (<60) %* 
Für nur 10 DM. Außerdem Lösungen für 
Adventures, (z.B. Dallas, The Hobbit, Mask of 
sun) + 4 weitere für 15 DM. Schreibt an: Thor- 
sten Hänsl, Rosenstr. 27, 6450 Hanau #, Vor- 
auskasse erbeten, > 


CPC 464 # Verkaufe CPC Spiele. Liste gegen 


Freiumschlag. Markus Gebhard, Markoman- 
nenstr. 40, 8000 München 70. 
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Achtung! % Schneider CPC-464-Software! 

Biete 10 Super-Spielprogramme an für Kas- 

sette DM 15,-. Komfort. Datenverwaltungs- 

programm und Tastenbelegungsprogramm 

auf Kassette DM 20,-. Schein im Brief oder 

Postscheck Dortmund 172 154-461, M. Kühn, . 
Goethestraße 44, 5758 Fröndenberg 


ktık%r  SCHNEIDER CPC - 464 
Biete Software zu Superpreisen. Über 
30 Spiele vorhanden, Fordert Listeran. Infor- 
mation und Bestellung bei: Stefan Bockting, 
4100 Duisburg-12, Schwabenruhrstr. 5, Tele- 
ion 02037/435613. 


me nad 


Commodore 64 + Schneider 
Professionelles Astrologie-Pro- 
gramm: 5 Seiten ausführl. Persön- 
lichk,-Anaiyse inkf. Grafik, Aspekte, 
Sternzeit, Planeten + Häuserberech- 
nung + Text. Schumacher, Cari- 
Zeiss-Str. 14, 3200 Hildesheim, Tel. 
05127/123646, 


BEBHBBSREERBESEBEZEEBREBEN 
@ CPOG-464 8 Gobbler (Strategie u. Action) 
39,-; Fiuglotse (Simulation) 26,-; Kalender 
(Druck NLQ-401) 19,-; Cedi (Character Edi- 
tor) 55,-; Handbuch zum Cedi 15,-. Immer | 
neue Programme in Arbeit. Fertige auch Indi- 
vidualsoftware. info u. Best. bei: Frank Aeff- 
ner, In Bans 20, 2080 Pinneberg 


un 





CPC 4641! Supersave 464, saven mit bis zu 
3500 Baud nur 15,- DM; Haushaltsabrech- 
nung mit Mon.-/Jahr-Abrechnung u. Graphik 
20,- DM; Strategiespiele 10,-/15,- DM. Soft- 
ware-Liste gegen 1,20 DM an Rainer Müller, 
Krapfenäckerweg 9, 7442 Neuffen (Tausch 
möglich}. PS: Alles auf Kassettel! 


Tausch 


Achtung ® Achtung ® Achtung 
Tausche Schneider-Software #* 
Suche Schneider Hardware (z. B. 
Drucker, Lighipen, ... ) & Suche & 
tausche Anleitungen #* Suche 
Schneider-User im Landkreis Diep- 
holz # Liste & Angebote an: 
Stephan Cattau, Pastorenkamp 8 
2841 Wagenfeld, Tel.: 65444/1811 
{ab 20 Uhr). 





% 
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Programme. 


CITYLANDER 


Schneider GPG 464 


Raumschiffabsturz über einer Großstadt 


Sie als Kommandant eines großen Raum- 
schiffes sind in erhebliche Schwierigkei- 
ten gekommen. Ihr Raumschiff sinkt auf- 
grund eines Antriebsschadens ständig 
tiefer und nähert sich den stark verseuch- 
ten Ruinen einer Großstadt. Um eine si- 
chere Landung zu ermöglichen, müssen 


Sie die Ruinen durch Bombenabwürfe zer- 
stören. Gelingt es Ihnen nicht, die Ruinen 
zu treffen, wird Ihr Raumschiff gegen die 
Ruinen stoßen und zerschellen. Achten 
Sie also bei !hren Flügen ständig auf die 
Überreste der Großstadt. Ist es Ihnen ge- 
lungen, alle Ruinen aus dem Weg zu räu- 


EEE TEN 
20 + * 
so’ * CITYLANDER * 
40 7% * 
so '* Copyright (c) 1985 by * 
ot * : * 
7" * JUISTRONIE Software * 
80 '’ 8 * 
BO BBBRRBRRAHEE HH EEEEEE IE RH 
100°. 
110 ' FUNKTIÖONSDEFINIERUNG 
120 
130 DEF FN hfx3=ROUND(I250/ 14.442” (1+ix 10/1229) 
140 ° 
150 ° TASTENDEFINIERUNG 
150 
170 KEY DEF 5,0,85 
180 
159 ' ZEICHENDEFINIERLNG 
290’ 
zi6 


240 ' ANFANBSSRAFIK 


250 


DEFINT a-c,1,85,87Y 
RESTORE: sp=25 


DATA 95,100,95,100,95 


DATA 127,106,119 
a=0:c=0:d=B 

INK 1,0 

WHILE a<400 


WEND 


INK 0,0: INK 1,26: INK 2,0: INK 3,0:PEN I:PFAPER 3: 


FOR a=1 TOD S:READ h:SOUND 1,h,sp:NEXT 


LOCATE 7,25: PRINT"JUISTRODNIC SOFTWARE PRESENTS" 
FOR a=sı TO 25:PRINT:FOR b=1 TO 50:NEXT b,a 
FOR a=1 TO 3:READ h:SDUND 1,h,=p=:NEXT 


e=ctird=ed#1.5 


LOICATE 12,35PRINT"C I TYLANDE RK" 


Compute mi 


men, können Sie sicher auf dem Boden 
der Erde landen. Insgesamt stehen Ihnen 
drei Raumschiffe für den Versuch, die 
Stadtruinen zu zerstören, zur Verfügung. 
Die Steuerung erfolgt über die ENTER-Ta- 
ste des Zehnerblocks oder über den 
Feuerknopf eines angeschlossenen Joy- 
sticks. Der Programmaufbau ist durch die. 
verwendeten REM-Zeilen gut ersichtlich, 
lediglich im Hauptteil wurde aus Gründen 
einer möglichst hohen Ablaufgeschwin- . 
digkeit auf REM-Zeilen verzichtet. Da alle 
Zeilen in 10er Schritten durchnumeriert 
sind, karın bei der Eingabe durch Verwen- 
dung des AUTO-Befehls Zeit und Arbeit 
gespart werden. 

Fails das Programm nach der Eingabe bei 
einem Testlauf wegen eines Fehlers ge- 
stoppt werden sollte und durch die ver- 
wendeten Farbbefehle der Cursor 
schlecht oder gar nicht zu erkennen ist, 
können mit CALL & BCO2 alle Farben wie- 
der auf den Anfangszustand zurückge- 
setzt werden. 

Eine weitere Auszeichnung erfährt das 
Programm durch seinen hervorragenden 
zweistimmigen Sound. Hier istesdem Au-. 
tor gelungen, die Titelmelodie zweistim- 
mig zu erzeugen, Da dies eine Besonder- 
heit in der Programmierung darstellt, soli- 
te sich jeder Hobby-Programmierer mit 
diesem Programm beschäftigen. 


SYMBOL 251,102,0,102,102,102,102,60:5YMEOL 253,0,60,126,165,165,126,60 
SYMBOL 254,254: SYMBOL 235,254,146,146,146,254,146,146,135 


BORDER O:CL5 


PLOT 320-2%0.9,200+3#0.5,c MOD 3:DRAWR 1.6#3,0:DRAWR O,-a 
DRAWR -1.85#9,0: DRAUR O,arasatdıc 
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programme 


LOCATE 9,23: PRINT"BITTE EINE TASTE DR"+CHRS (251) +" CKEN" 


* ANFANGSMUSIK 
EVERY 10 GOSLB 920 

FOR a=1 TO 4:READ h>30UND 
DATA 284,377,294,239 

FOR a=i TOD A4:READ h:SCUND 
DATA 142,190,142,119 

FOR a=1 TO 4:READ hrSDuND 
DATA 301,379,301,253 

FOR a=1 TO ArREAD h:SDUND 
DATA 127,190,150,127 

FOR a=1 TO 8:READ h:SDUND 


12,h,sp:S0UND 33,142,sp:NEXT 
12,190,sp: SOUND 33,h,sp:NEXT 
12,h,sp:S0UND 33,127,sp:NEXT 
12,190,sp:SOUND 33,h,sp:NEXT 


12,n,5p:50UND 33,119,sp:NEXT 


DATA 284,379,284,239,190,239,284,402 


FOR a=1 TO B:READ h:50DUND 


DATA 95,100,95,100,95,127, 


FOR a=1 TO A:READ n:SODUND 
DATA 2984,379,284,239 

FOR a=1 TD 4:READ h:SDUND 
DATA 142,190,142,11% 

FOR a=1 TO 4:READ h:S0UND 
DATA 301,379,301,253 

FOR a=1 TO 4:READ h:SDUND 
DATA 127,190,119,127 

FOR a=1 TO 4:READ h:S0UND 
DATA 142,190,239,253 

FOR a=1 TO 4:READ h: SOUND 
DATA 142,127,119,106 

FOR a=1 TO 4:READ h: SOUND 
DATA 119,159,190,213 

FOR a=1 TO 4:READ h: SOUND 
DATA 95,95,89,95 

FOR a=i TO 4: READ hrSOUND 
DATA 127,159,213,253 

FOR a=1 TO 4:READ h3SOUND 
DATA 106,106,95,106 

FOR a=1 TD A:READ h:SOUND 
DATA 142,190,239,253 

FOR a=1 TO 4:READ h:SDUND 
DATA 119,119,106,119 


12,377 ,sp:S0OUND 33,h,sp:NEXT 
106,117 

12,h,sp:50UND 33,142,sp:NEXT 
12,190 ,5p:SDUND 335,h,sp:NEXT 
12,h,sp:SDUND 33,127,sp:NEXT 
12,190,sp:50UND 33,h,sp:NEXT 
12,h,sp: SOUND 33,142,sp: NEXT 
12,264 ‚sp: SOUND =3.h,sp:NEXT 
12,h,sp:50UND 33,95,5P:NEXT 

12,239 ,sp:SQOUND 35,h,spiNEXT 
12,h,sp:SOUND 33,106,5p:NEXT 
12,319 ,sp:50UND 33,h,sp:NEXT 
i2,h,sp:SOUND 33,119,sp:NEXT 


12,284 ,sp:SOUND 33,h,sp:NEXT 


830 FOR a=1 TO 12:READ h:50UND 12,h,sp:50UND 33,127,=p:NEXT 
840 DATA 379,301 ,253,301,253,190 

850 DATA 253,190,150,190,150,253 

860 FOR a=1 TO S:READ h:SOUND 12,190,sp:SOUND 3%,h,sp:NEXT 
870 DATA 95,100,95,100,95,127,105,119 

880 RESTORE 470:c=c MOD 3:60T0 470 


890 

00 * TASTATURABFRÄBE 

10 

920 INK c MOD 3,221INKtc+1) MOD 3,0: INKfc+2)MOD 3,0:c=c#+l 


730 IF INKEY#=""THEN RETURN 
740 

950 ° HAUPTPROGRAHMM 

Fed " 


970 ENT 1,50,-4,1:ENT 2,3,4,i1:ENT 3,100,4,1zENT '4,140,2,1 
980 1$=CHR$ (15) +CHRS$ (3) +CHRS$ (224) +CHR$ (224) +CHRS (224) +CHR$ (224) 
990 INK 2,0:PAPER 2:CLS:PLOT 640,640,1zINK O,1:INK 1,26: INK 3,2 
1000 PAPER OrPRINT" SCORE 0000 CITYLANDER LIVES "lsee u 
. 1010 PAPER 2:FOR a=1 TO S50:PLOT RND*&40 ,RND*240+144: NEXT 


uns Sompute mik z 
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Programme 


RANDOMIZE TIME 

FOR a=1 TO 40:50UND 130,180,20,,,1:LDCATE 2,25: PRINT CHR#$ (254) 3 

FOR b=24 TO RND#14+10 STEF -1:LOCATE a,b:PFRINT CHR#$ (2557 :NEXT D,a 
TABG:FOR a=O TO 12 STEP 2 
SCUND 129,FN hta+t1),100:5Q0UND 130,FN h(s+5) „100:50UND 132,FN hlars? „100 
MOVE O,a: PRINT" COPYRIGHT (c) 1985 JUJSTRONIC SOFTWARE "; 

NEXT a: TABOFF 

PEN 1:b=0:1=>5:5=0 

bS=CHR# (252) 2 k$&=CHR$ (BB) 

»=1:1y=3:FOR a=i TO 4:50UND 12,2499,12,,,2:50DUND 33,2500,12,5,2:NEXT 
sS$=STR$ (s} :PAFER Q:LOCATE IF-LEN(s$) ,1:5PRINT MID$ {s#,2) 

FAPER 2: LDCATE x ,„y:PRINT" ":LOCATE x+1,y:PRINT CHR& (253) 

SOUND 12,2497,12,,,2:S0UND 35,2500, 12, ,„1„27x=x#t1:IF x=41 THEN »#l:yryti 
IF y=-24 THEN IF »=20 THEN 1430 

IF TESTIx #168 (ni40) ,415-yrlörix=40)ais)=T THEN 1240 

IF RND>QO.85 THEN PLOT INT (l1&# (x -1-RND)) „INT(lS* (Zö-y-RND}> „1 

IFb THEN LOCATE br ,„by#+i1i-bsPRINT " *ıb=b-1: IF by-b=14 THEN b=0 
i$=INKEYF:IF b=0 THEN 1220 

IF RND>0.85 THEN PLOT. INT{15*<bx-RNDI) „ZS3-INT (18* (by-b+rRND)) 

s=s+TEST (165*bx -3,239-16# {by-b) 3810-20: LOERTE bx ,by+tli-bs PRINT b$:50T0 1120 
IF i$=k# THEN SOUND 130,80,140, ,„4:b=11:bx=xrl:byeyıLOCATE bx „by: FRINT b$ 
WHILE bu=Alsbx=irbyrbyti:WEND:GOTOD 1120 

LOCATE x „y: PRINT" "SLOCATE »#+1,yıPRINT CHRS$ (2238) 

SOUND 1297,97,100,4,,35S0UND 1350,100,100, ,,3:250UND 132,101,100, 543 

FOR a=t TO 140: INK 2,RND#=2Z4ENEXT:EINK 2,0: FOR a=1 TOD 2000:NEXT 
3=1-15PAPER O:LOCATE 36,13 PRINT LEFIS(IE, IH)" " 

FAPER Z; IF 1=0 THEN 1340 

LOSATE x+1,y:FRINT CHRSS25SDI:PEN 1 

FOR a=1 TO 20:1 $#=INKEYFSNEXT:GOTO 1110 


' ALLE LEBEN VERLOREN 

FOR a=i TO 2000: NEXT 

PEN 1:L0CATE 11,18: PRINT" GAME DVER® 
sp=30: RESTDRE 1390 


- FOR a=1 TO 11:READ h,1:SDUND 33,283 ,1#sp: SOUND 2,h,18#2p:50UND 12,190,1%#ep 


SOUND 1,0,1,0:5 SOUND 34,0,1,0530UND 20,0,1,0:NEXT 
DATA 142,3,142,2,142,1,192,3,119,2,127,1,127,2,142,1,142,x ,150,1,142,5 
FÜR a=1 TO 190002 NEXT: RUN 


" ERFOLBREICHE LANDUNS 


SOUND 129,0,1,02SOUND 130,0,1,0:50UND 132,0,1,0 

FOR a=1 T0 16 

SDUND 129,99,20,,,1:30UND 130,100,20,,,1:5DUND 132,101,20, 5,1 
FOR b=1 TO 30: INK 2,RND#2Z& 

NEXT. b,asINK 2,0 

FOR s=1 TO 2000:NEXT:CLS:l=1-1:PRINT : 

PRINT=PRINT" HERZLICHEN GL"+CHRS$ (251) +"CKWUNSCH |" PRINT+PRINT 
PRINT:PRINT" SIE HABEN ES BESCHAFFT, SICHER ZU" 

PRINT:PRINT" LANDEN. DABEI HABEN SIE"S5 "PUNKTE" 

PRINTSPRINT"  ERZIEHLT. F"+CHR$(Z51)+"R DIE VERBLIEBENEN LEBEN" 
PRINT:PRINT" ERHALTEN SIE AUSSERDEM"+STR$(L#100)+" PUNKTE" 
PRINTSPRINT" BONUS. SOMIT HABEN SIE INSGESAMT" 

PRINT=:PRINT" "+STR$(5+1008L)+" PUNKTE ERREICHT. ":PRINT:PRINT 
PRINTZPRINT" HABEN SIE GENUG MUT, ES NOCHMALS" 

PRINT:PRINT" ZU VERSUCHEN ? (BITTE J/N DR"+CHR$ (251) +"CKEN) " 
i$=INKEY$: IF I$="j" OR Is="J" THEN RUN 

IF I$="n" OR I$="N" THEN CALL O ö 

BORDER RND#+26: INK 1,RND*26:60T0 1590 
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Ein kniffliges Labyrinthspiel 


Der große Mathematiker Euler hat eine 
Regel aufgestellt, nach der sich alle Arten 
von Labyrinthen entwirren lassen, was, 
wie allen gewieften Rätselratern bestens 
bekannt ist, in der Hauptsache durch um- 
gekehrtes Vorgehen zu erreichen ist. Die 
hier gestellte Aufgabe wurde jedoch ei- 
gens konstruiert, um Eulers Regel zu wi- 
derlegen, und ist von vielen anderen Ver- 
suchen dieser Art wahrscheinlich die ein- 
zige, die seiner Methode einen Sirick 
durch die Rechnung macht. 

Fangen Sie beim Herzen, direkt in der Mit- 
te an. Machen Sie in irgendeiner der acht 
Richtungen drei Schritte geradeaus, also 
nach Norden, Süden, Osten, Westen oder 
in diagonaler Richtung, d. h., nach Nordo- 
sten, Südosten oder Südwesten. Nach- 
dem Sie die drei Schritte geradeaus ge- 
gangen sind, erreichen Sie ein Quadrat 
mit einer Nummer, die die Reise des zwei- 
ten Tages vorschreibt, nämlich genauso 
viele Schritte, wie die Zahl groß ist, wieder 
geradeaus in irgendeine der acht Richtun- 


GOSUB 105 


SEonTtruruaNe gg 


DEFINT a-z 
DIM a{23,25) 
r=7’ru=2 
FOR m=0 TO 22 
FOR n=0 TO 27 


REARD asaln,m’=a 


NEXT n,m 


gen. Von diesem neuen Punkt 
aus marschieren Sie ge- 
mäß der darauf angege- 
benen Zahl weiter, und 
auf diese Art und We- en 
se verfahren Sie 0 o gg. 
lange, bis Sie auf 
ein Quadrat mt 
einer Zahl gelan- Kl 
gen,vondemaus Is} 
Sie nur einen 
Schritt über die 
Waldgrenze  hin- 
auskommen. Wern 
Sie erst mal heraus 
sind aus dem Wald, kön- 
nen Sie soviel brüllen, to- 
ben und schreien, wie Sie 
wollen, denn dann haben Sie 
das Rätsel gelöst! 













Wo ist der Ausgang? 


KEIHERKERKEHRERER KH KENNEN 
x ZURUECK VON KLONDIKE * 
"#* ic} 1955 GEORG THIMM * 
'# 7218 TROSSINGEN * 
'* SCHWARZWALDSTR 52 * 
EEE TH RR IE N IEH HEN EH 


"**# initialisierung #%#* 


LOCATE 3,25:FRINT"”Weiter mit einer Taste ":CALL 47878 
"#*% Zeichnen des Spielfeldes ##*#+ - 

INK 0,189:INK 1,8,20:1INK 2,02 INK 3,26: BORDER 18:CL5 
FOR m=1 TO 25:FOR n=0 TO 25 
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IF ain,m’>ü THEN GOSUB 34 

NEXT n,m 

n=11:mellsni=nımi=m 

PAPER 33PEN 2:LOCATE 2,2: PRINT"ZEIT"=:LOCATE 30,2:PRINT”SCHRITTE" 
EVERY 50 GOSUB 38 

"ax Betzen *### 


DI=:PEN Ii:LOCATE ntr „m+u:PRINT MID$ {5STRFlain,m}),Z2,1?:El 
b$=INKEYSSIF bi="" OR b#S"1" OR bE>"97" THEN 27 

b=VAL (ib#$) 

GOSUB 54 


a=zain,m) 

ON b GOSUB 48,49,50,51,52,39,205,97,98 

GOTO 2& 

"*#+ Subroutine fuer Felder #3# 

DI=zIF (n+m}’2=in+m) 7? THEN PEN Z:PAPER 5 ELSE PEN F:PAPER 2 
LOEATE n+r „mtus PRINT MIDF{STR#Ftaln,mw),2,1}sEI 
RETURN 


’##% Jeitanzeige ### 

s=5+1:1IF s=40 THEN s=0:mi=mit+l 

DI=PEN ArFAPER 3:LOCATE 2,4: PRINT" , #:LDCATE 2,4:PRINT mi;s":";s:El 
RETURN 


'#=*#= Anzeige der Zueg®e #*###%* 
IF n1>22 OR ni<ü OR mi<0 OR ml>Z22 THEN GDSUB 57 


IF atlni,mi}«1l THEN IF (-ainl,mi)AND 3={b-1})=Q THEN GOSUB 59 ELSE GOTO 67 
DIe>r=z+1:L0CATE 30,4:PAPER 3:PEN 2:3PRINT" »:LOCATE 30,4:PRINT z:EiI 
nenl:meml 

RETURN 


"#*#+ Subroutinen fuer Richtungen ### 


nl=en-a:ml=m+a:GOSUB #42: RETURN 


mi=m+ta: BOSUB 47: RETURN 

mnl=mtasıni=n+ta:6G0OSURB 32: RETURN 

nl=en-a: GOISUB 42: RETURN 

n=11:m=11:z=0:ml=mı nlien 

DI:LOCATE 30,4:PAPER 35:PEN 2:PRINT" SLOCATE 30,4: PRINT z:EI 
RETURN 

ni=n+ta:GOSUB 42:RETURN 

ni=n-a: ml=m-a: 69SUR 42: RETURN 

nml=m-a:G0OSUR 42:RETURN 

mi=m-aıni=enta:5GOSLB 42:RETURN 

nilzenıml=m 

"++ Subroutine 'unmoeglicher Zug’ *##* L 
DI:LOCATE 2,24:PEN 2:PAPER 3:PRINT"nicht moeglich":EI 


FÜR n=1 TO 500: NEXT 

DIELOCATE 2,24: PAPER Ö:PRINT" ö Nase! 

IF in+m) /2= {n+m) /2 THEN PEN Z:PAPER 3 ELSE PEN PAPER 2 
RETURN 


"##: GEWONNEN #*# 
n=REMRIN (OF PAPER OsMüDE oO 
RESTORE 102 
FOR n=i TO 27:PEN n/2:PRINT STRING# (n/2," ")3 "GEWONNEN" SNEXT 
FOR k=1 TO ?2:FOR n=1 TO 24 STEP 2:FOR m=1 TD 15:INK m,n:NEXT m,n,K 
INK 15,4,22:1INK 0,18,12 
FOR n=1 TO 50 

READ a,b 

SOUND: 1, a,6b,%: SOUND 2,8/2,b,2 
NEXT 

Für n=1 TO 2000: NEXTZRUN 

'x#* Datsas fuer Spielfeld #*# a 
DATA 0,0,0,0,0,0,0,0,0,-64,-7&,-112,-48,-15,0,0,0,0,0, 2,0,0,0 
DATA 0,0,0,0,0,0, 54 „-9&5,-112,77290,4,7 272 -120, -112, "a8, 16, ö, 0,0,0,0,0 
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80 DATA 0,0,0,0,-64,-92,-240,5,4,4,8,3,3,4,6,3,-120,-48,-16,0,0,0,0 
81 DATA 0,0,0,-64,-224,1,4,5,1,1,1,4,5,1,7,1,3,3,7536,-16,0,0,0 
82 DATA 0,0,-64,-224,4,9,4,9,6,7,5,5,5,8,7,6,6,8,5,-564,-18,0,0 
85 DATA 0,0,-192,3,7,2,9,8,3,5,647433,73, 1438, 7,5,835,-24,0,0 

84 DATA 0,-64 „—224,1,4,7,8,4,2,7,2,7,1,138, 232373643, -56,-16,0 
85 DATA 0,-192,7,2,1,8,5,5,3,1,1,3,1,3,3,4,2,8,6, 1,3, - 24,0 

86 DATA 0,-193,4,2,6,7,2,5,2,4,2,2,5,4,3,2,8,3,7,7,33-29,0 

87 DATA -64,-225,4,1,6,5,1,1,1,9,1,4,3,4,4,3,1,9,8,2, 7,760, -16 
88 DATA -192,4,5,5,2,3,2,2,3,2,4,2,5,3,5,1,1,3,5,543, 73-24 

89 DATA -193,2,7,1,5,1,1,3,1,5,3,3, 2,4, 243,7, 7,534,2,7,-28. 

90 DATA -129,2,5,2,2,6,1,25,4,4,5,354,1,2413,2,6,5,1,8,8,-12 

91 DATA -1,-195,4,3,7,5,1,9,3,4,4,5,2,9,8,1,94,5,7,4,8,-30,74 
92 DATA 0,-193,4,1,6,7,8,3,4,3,4, 1,341, 243424336, 254,28, 0 

93 DATA 0,-129,7,3,2,6,1,5,3,9,2,35,2,1,5,7,5,8,9,5,4,-12,0 

74 DATA 0,-1,-195,1,6,7,3,4,8,1,2,1,2,1,2,2,8,9,441,-30,-4,0 
95 DATA 0,0,-129,2,5,4,7,8,7,5,6,1,3,53738,7,2,9,3,712,0,0 

76 DATA 0,0,-1,-131,6,5,6,4,6,732,542,2,6,3434,7,4,—14,-4,0,0 
37 DATA 0,0,0,-1,-131,2,3,1,2, 3,3334, 2,143 342,151, +14, -4,0,0,0 
98 DATA 0,0,0,0,-1,-3,—131,7,4,4,5,753,4,8,7,-14,-6,-8,0,0,0,0 
77 DATA 0,0,0,0,0,0,-1,-3,+-7,-135,3,3,4,-15,-73-5,-4,0,0,0,0,0,0 
100 DATA 0,0,0,0,0,0,0,0,0,-1,-34-73-5,-4,0,0,0,0,0,0,0,0,0 


101 '**#* Datas fuer Siegesmelodie #*# 

102 DATA 838, 25,478, 259,426,,25,379,25,358,25,319,590,284,25,358,25,3797,590,428,50,4 
78,75,638,25 „5389,25,478,25,426,25,379,25,358,25,319 
,20,284,25,358,25,379,50,426,50,4798,75,0,25,317,37,358,13,379, 25,317, 25,358, 259,3 
78,25,4326,50,319,37,358,13,379,25,319,75 

103. DATA 3598,25,379,25,4268,50,479, 25,426, 25,379, 25,358, 25,319,25, 239,25, 284,25,3 
28,25,379,90,425,50,4258,753,0,100 

104 '**# Titelbild ###* 

105 MODE 1:INK 0,22:1INK 1,0: INK Z2,18:FPEN 1:PAPER 2:BORDER 22 

105 LOICATE S,2:PRINT CHR#FEL3SSI ASTRINGE (22 ,CHR$ (131) ) ; CHRF (139) 

107 LOCATE 5,3:FRINT CHR#(135) 3" ZURUECK VON KLONDIKE ",ECHRF(138) 

108 LDEATE 5,4:PRINT CHR# (14133 STRINGF {72 ,CHR#& (140) } LS CHRCF 142) 

1097 PAPER 0 


110 LOCATE 1,4:FRINT" Sıe sind im blinkenden Feld in der Mitte des Feldes. 
Vor dort aus sollen Sie einen Weg aus dem 'Wald v 

on ; Klondike ' finden." 

11 FRINT:PRINT" Dies koennen Sie „inden Sie von dem Feld aus „ auf dem Sie 
stehen, soviele Schritte gehen ‚wie es 'anzeigt." 

112 PRINT" Die Richtung waehlen Sie mit dem Zahlenblock:Mit der '1’ nach 
Sy, mit der ‘2° nach 5 „mit der '3° nach 50, 

-..und mit der '4° nach WR." 

113 PRINT:PRINT" Die '5' bringt Sie wieder an den Ausgangspunkt zuruck. " 
1434 LOCATE 3,25:PRINT"VIEL SPASS tt" 


115 RETURN 


Grafik-Einzeiler für den CPC-464 


10 MODE L:INK 0,0:INK 1,0: INK 2,0:INK 3,0:PAPER 0:BORDER O:CL5S:DEG:ORIGIN 320:20 
0:z=0:FÜR i=0 TO 360:NÜVE 0,0: z=(2 MOD 3)+1:DRAW CDS 

()&200,SIN)&200,2:NEXT ::t$=”""WHILE 1$=””:7=(z MOD 24)+1:INK 1,z:INK 2,2+1: INK 
3,2+2:FÜR 1 TO 100:NEXT:t$- N WEND 
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In den allgemeinen Daten zum Programm 
SUPER-FILE ist von einer freien Eingabe- 
maske mit bis zu 20 Feldern die Rede. Die 
veröffentlichte Version bietet jedoch nur 


eine Möglichkeit bis zu 10 Feldern. Bei 


dem Versuch das 11. Feld einzugeben ent- 
stand bisher ein Fehler. Die beiden nach- 
folgenden Zeilen ermöglichen jetzt die tat- 
sächliche Eingabe von 20 Feldern. Wer al- 
so mit dem Programm arbeitet, sollte die- 


se kleine Änderung vornehmen. 

455 DIM Länge {20), anf (20) 

2365 DIM Länge (20), anf (20), ax (20), - 
ay (20). mx (20), my (20), Bezeichnung 
$(20) 


Schneider Computer Zubehör 


Im Rahmen unserer Systemvorstellung des Schneider-Computers kommen wir heute zu einigen Zubehör- 
teilen die den effektiven Einsatz Ihres Hardware- und Software-Systems noch ausgiebiger unterstützen. 
Wir wollen.an dieser Stelle die entsprechenden Geräte und Zubehörteile nur vorstellen um das gesamte 
Lieferpaket der Firma Schneider unseren Lesern näher zu bringen. 


Es handelt sich hierbei um einen speziell 
für den GPC 464 entwickelten Arbeits- 
tisch. Er bietet Ihnen Platz für den Rechner 
und die gesamte Peripherie. Die ergono- 
mische Konzeption durch Handballenau- 
tlage, höherstehenden Monitor und vieles 
mehr verspricht dem Benutzer den opüi- 
malen Überblick und Handhabung an sei- 
nen Arbeitsplatz. Durch die eingebaute 
Mehrfachsteckdose wird der so oft vor- 
kommende Kabelsalat vermieden. Bei ei- 
nem Preis von 248,- BM sollte sich jedoch 
jeder Benutzer genau überlegen, ob diese 
Investition auch wirklich sinnvoll und er- 
torderlich ist. 


Formulartraktor SFT 401 


Sie haben die Möglichkeit Ihren Schneider 
Matrix Printer NLQ 401 zu erweitern und 
somit noch professioneller einsetzen zu 
können. Mit dem Formulartraktor steht ei- 
ner umfangreichen Verarbeitung von 
Endlospapier nichts mehr im Wege und 
wird zudem wesentlich erleichtert. Die da- 
zugehörige Acrylglashaube reduziert als 
positive Nebenerscheinung noch erheb- 
lich den Geräuschpegel. 


Bei einem Preis von 79,59 DM handelt es 


sich bei diesem Gerät um eine sinnvolle 
Hardware-Erweiterung die vom Benufzer 
mit großem Datenpotential im Druckbe- 
reich verwendet werden sollte. 


GSompute mik 


Joystick 


Neben den bereits erwähnten Zubehörtei- 
ten bietet die Firma Schneider auch einen 
‚bystick zum Preis von 39,50 DM an. Von 
den wesentlichen Funktionen und dem 
Styling unterscheidet er sich kaum von 
anderen marktbekannten Produkten. Ne- 
ben dem Feuerknopf, der handgerechten 
Form, vier Saugknöpfen und den üblichen 
Eigenschaften verfügt dieser ‚bystick aber 
zusätzlich über eine zweite Anschluß- 
buchse für einen weiteren ‚bystick, Dieser 
‚ystick ist deshalb sehr interessant, weil 
Sie dadurch den Kauf eines Y-Adapters für 
eine zweite ‚bystickanschlußmöglichkeit 
an Ihren Rechner umgehen können. 





Netzteil MP-I 





Mit Hilfe des Netzteil MP-t kann Ihr Rech- 
ner problemlos an jedes normale Farb- 
fernsehgerät angeschlossen werden. Be- 
sonders für die Besitzer von Grünmonito- 
ren stellt dies eine attraktive Erweiterung 
der Einsatzmöglichkeiten Ihres Rechners 
dar. So hat jeder Schneider-Besitzer die 
Möglichkeit für einen Preis von 128,-- DM 
alle marktbekannten Grafiken auf seinem 
Computer einzusetzen. 





Auflösung unseres Rätsels 


; An dieser Stelle finden Sie die Auflösung un- 
I seres kleinen Suchrätsel aus der vorigen 
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hardware 


% POWER-BRSIC - Kassetie DM 49,- | 


Diskette DM 69,- | 
die Basicerweiterung für den CPG 464 mit 47 nauen Basic- | 
Befehlen: BOY, BLOCK, FURBO, SET, RSET, HCOPY, INV, | 
MEILL, MCGPY, MCHANGE, FILL, GIRCLE, PAINT, ACCES, | 
SMODE, SIZE, RON, RÖFF, RINK, RBÖRDER, RMODE, CHAR, | 
HELP MATRIX, GPEN, LINE, FRAME, DOKE, LINE, GET, CAT, | 
DISPRG, BASE, SCREEN, MAR NOESG... POWER-NASIC I 
ermöglicht die Programmierung von SFHITES (=bewegliche | 
Felder, zur Darstellung von Figuren bei Spielen) in beliebi- | 


1 ger Größe. POWER-BASIG hat neue Graphik-Befehle und 


druckt Bildschirminkalte aus. Beliebig Arelie Schriften sind 


‘4 darstellbar und Figuren lassen sich ausmalen. Mit dem 


Befehl TURBO laden Sie Ihre Programme bis zu 4 schnellar. 
Darstellen aller 27 Farben und alter 3 Medes. POWER-BASIG 
ist auch mit Ihrer Floppy tauffähig, ) 


© DISCHECHANIK 464 KEU Hixketis DM 69,- 
Disc Mechanic ist das Diskatten-Utility-Programm, das je- 
‚Ser Schneider Besitzer haben sollte. Disc Mechanic ermög- 
licht das Formatieren und Kopieren von Disketten bis zu 42 
Tracks. Dabei werden neue Diskettenfermate, die als Kopiar- 
schutz dienen, mitkopiert. Mit dem eingebauten Disketten- 
monitor können Sie ihre Disketten „unter die Lupe neh- 
men“ und Änderungen vornehmen. Löschen, Umbenen- 
nen sowie das Zuräckhalen von bereits gelöschten Files ist 
extrem komfortabel, In den wichtigsten Funktionen ist ein 
Ausdruck des Bildschirms auf einer Drucker möglich. Dise 
Mechanie arbeitet auch mit zwei Laufwerken. 


@ THANSMAT A64/654 Kassette DR 40,-. 


überträgt Ihre Software von Kassette auf Diskette. Pro- 
gramme, deren Größe die Benutzung eines Diskettenlauf- 
werks nicht zulassen, werden vom Programm automatisch 
umgeschrieben, 


“LAD. 464 Karsatta DR 49,- 


ner Hoc mern 
Diskette_DM 59.- 
Superprogramm zum Erstellen von Grafikbildern (z.B. für 
Adventures und Spiele) auf dem EPG 464 mitden Grafikbe- 
fehlen: 

BLOCK, BOX, CIRCLE, TYPE, CHANGE COLOR, CHANGE 
MODE, CHARACTER, COLOR, CLEAR, BISK, GOTO, HELF 
INVERSE, LINE, LBAD, MODE, RASTER, PAINT/FILE, SAVE, 
SPRAY und ZOOM. CAD. 464 zeichnet Kreise, Blöcke, 
Linien, Rahmen, Rauten, Dreiecke und Vielecke. Buchsta- 
ben können eingefügt, Bilder invertiert und Objekte blitz- 
schnell farbig ausgefüllt werden. Bildpositionen sind spei- 
cherbar - an diese kann jederzeit zurückgesprungen wer- 
den. 


C.A.D. 464 kann Grafikbilder auf und von Kassette oder 
Diskette speichern und laden. Das Hilfsmenü dient der | 
schnellen Handhabung. ‚Lieferung mitdeutscher Anleitung 
und Demobild. 


@ TAPE MECHANIC 464 tte DM 48. | 
Tape Mechanic ist ein Kopierprogramm zum Analysieren 
und Kopieren von geschützten Programmen. Tape Mecha- 
nic ermöglicht das stufeniase Einstellen der Baudrate und _ 
kann „LIST“ geschützte Programme listen, 


Versand per Nachnahme oder Vorauskasse (Scheck) 
zzgl. DM 5,- Versandkosten auch tel. Bestellungen 


Händieranfragen erwässcht 


GIGGE ELECTRONICS| 


Aktellung: Saftware-Yartrisk 
Schnarfernerring 4 - 8506 Kümkerg 
Hat line Ks 20 Uhr: 0911/84244 


62 





und 


Unser Software-Service ist in der Lage, Spiel- und Anwendungsprogramme für 


alle Commadare- und Schneidersysteme innerhalb 


Alle Bestellungen werden sofert bearbei- 
tet, so daß keine unnötigen Wartezeiten 


entstehen. Außerdem wird eine „Ladega- 


rantie“ übernommen. Das bedeutet, Sie 
können fehlerhafte oder unladbare Pro- 
gramme zum Umtausch an uns zurück- 
senden. - 


Heft 5/85 


Commodore- 
Bestell-Nr. COM G 1/1 
Bestell-Nr. COM D 1/1 


Schneider 
Bestell-Nr. COM S 1/1 


Heft 7/85 


Commodore 
Bestell-Nr. COM CK 3/1 16,- DM 
Bestell-Nr. COM CD 3/1 20,- DM 


Schneider 
Besteil-Nr. COM SK 3/1 16,- DM 
Bestell-Nr. COM SD 3/1 39,- DM 


16,- DM 
20,- DM 


16,- DM 


‚nur 1 Woche zu liefern. 


in unserer Bestelliste finden Sie Software 
für alle Anwendungsgebiete. Schauen Sie 
einmal unverbindlich auf unser Angebot. 
Vielleicht können wir auch Sie von unse- 
ren hervorragenden Angeboten überzeu- 


‘gen, und Sie senden uns den ausgefüliten 


Bestellcoupon ein oder greifen einfach 
Heft 6/85 
Commodore 


Bestell-Nr. COM 62/1 16,- DM 
Besteli-Nr. COM D 2/1 29,- DM 
Schneider 

Bestell-Nr. COM S 2/1 16,- DM 
Heft 8/85 

tommodare 


Besteli-Nr. COM CK 4/1 16,- DM 
Bestell-Nr. COM CD 4/1 28,- DM 


Schneider 
Bestell-Nr. COM SK 4/1 16,- DM 


Bestell-Nr. GOM SD 4/1. 39,- DM 


zum Telefon und bestellen telefonisch un- 
ter den Nummern: 


05651/40643 
oder 40693 


Aus diesem Heft: 


Commodore 
Bestell-Nr. COM CK 5/1 16,- DM 
Bestell-Nr. COM CD 5/1 20,- DM 


Schneider 
Bestell-Nr. COM SK 5/1 16,- DM 
Bestell-Nr. COM SD BA 39,- DM 


Bitte beachten: 
Der Preis für die Datenträger gilt nur in Ver- 
| hindung mit der Einsendung des Bestellcou- 


pons, Ohne Coupon erhöht sich der Preis 
entsprechend (24,50 DM pro Kassetie, 
29,50 Eommodore-Biskeite und 44,90 DM 
Schneider-Diskette). 





"Compute mit“ Software-Service %* Bestellcoupon 9 x "compute mit“ Software-Service 


Die Zustellung erfolgt: 


gegen Vorkasse |_| 


oder 


Auslandslieferungen nur gegen Vorkasse 


innerhalb von 1 Woche 


per Nachnahme |_| + Versandkosten 


Entnehmen Sie bitte aus unserer Preisliste die notwendigen Angaben für Ihre Bestellung: 


Bitte liefern Sie mir: 


[.] Kassette für 


Bestell-Nr. 


!] Diskette für 


Bestell-Nr. 


zum Preis von gesamt 


Name, Vorname 


PLZ, Ort 


Straße, Nr; 


Datum, Unterschrift 


Compupe mib 


[| Anzahl 
[_] Anzahl 
DM 
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Schneider GPG-464 


Autorennen, Kassette 11,- DM, Bestell- 
Nr. US 3/85 

Universal-Datei VI, Kassette 9,- DM, 
Bestell-Nr. US 4/85 
Computerschrift/Symbol-Swap, 

Kassette 10,- DM, Bestell-Nr. US 5/85 
Keyboard Toolkit/Farbdecodierung, Kas- 
sette 11,- DM, Bestell-Nr. US 6.1/85 
Aladin, Kassette 9,- DM, Bestell-Nr. US 
6.2/85 

Painter/Box-Befehl, Kassette 14,- DM, 
Diskette 24,- DM, Bestell-Nr. US 7/85 
Maschinensprache-Monitor/Disk-Hilfe, 
Kassette 15,- DM, Diskette 25,- DM, Be- 
stell-Nr. US 8/85 
Failschirmspringer, Kassette 9,- DM, Be- 
stell-Nr. HG/SR-3 

Geisterschloß, Kassette 9,- DM, Bestell- 
Nr. HG/SR-4 

Zeichendesigner, Kassette 12,50 DM, Be- 
stell-Nr. HC/SR-5 

Super-Miner, Kassette 14,- DM, Bestell- 
Nr. SR 42 

GPC-Bert, Kassette 14,- DM, Bestell-Nr. 
SR 52 - 


| ve-20 


Bestellschein/Glücky, Kassette 8,50 DM, 
Diskette 15,- DM, Bestell-Nr. V 61 





Multigraph/All Rammer, Kassette 11,- 


DM, Diskette 15,50 DM, Bestell-Nr. V 71 
Zyklo/Meteorit, Kassette 11,- DM, Disket- 
te 19,50 DM, Bestell-Nr. V 81 
Garten/Schloß Gruselstein, Kassette 14,- 
DM, Diskette 19,50 DM, Bestell-Nr. V 91 
Fressman/Outlaw, Kassette 14,- DM, Dis- 
kette 19,50 DM, Bestell-Nr. V 101 
Prost/Buffalo Bill, Kassette 14,- DM, Dis- 
kette 19,50 DM, Bestell-Nr. V 121 

Joy Man/Poweipack, Kassette 14,- DM, 
Diskette 19,50 DM, Bestell-Nr. V 22 

Der rasende Malocher/Frankie goes to 
Pharao, Kassette 14,- DM, Diskette 19, 50 
DM, Bestell-Nr. V 32 


9/85 


_software-service 


Matron/Übst, Kassette 14,- DM, Diskette 
19,50 DM, Bestell-Nr. V 42 


Race On/Cagy, Kassette 14,- DM, Diskette 
19,50 DM, Bestell-Nr. V 52 


Zyklo/Geldsammier, Kassette 11,50 DM, 
Bestell-Nr. HG/V-1 


Star-Wars/Punktefresser, Kassette 14,50 


‚DM, Bestell-Nr. HC/V-2 


Catch the Fish/Mister Jump, Kassette 
14,50 DM, Bestell-Nr. HC/V-3 


Ghost’s Eggs/Fox Hunt, Kassette 14,50 
DM, Bestell-Nr. HG/V-4 


Collector/Break Out, Kassette 14,50 DM, 
Besteil-Nr. HC/V-5 


Sprites/Space-Battle, Kassette 13,- DM, 
Diskette 19,- DM, Bestell-Nr. UV 2/85 


Grafik-Painter, Kassette 10,- DM, Bestell- 
Nr. UV 5/85 


VIC-Clock, Kassette 9,- DM, Bestell-Nr. UV 
6/85 


Decelevator, Kassette 9,- - DM, Bestell-Nr. 
UV 7/85 


Joypaint, Kassette 12,- DM, Bestell-Nr. UV 
8/85 





Commodore 64 


Mauern/Widerstand, Kassette 8,- DM, 
Diskette 15,- DM, Bestell-Nr. C 41 


Space-Comets/Erdspalte/Sprite-Data, 
Kassette 15,- DM, Diskette 23,50 DM, Be- 
stell-Nr. G 51 


Autostart/Bestellschein/Roadpainter, Kas- 
sette 16,50 DM, Diskette 23,50 DM, Be- 
stell-N.G61 


Hardcopy/Space-Fighter/Data-Generator, 
Kassette 15,50 DM, Diskette 19,50 DM, 
Bestell-Nr. G 71 


Monster-Attack/Block-Painter/Epson- 


‘Drucker, Kassette 16,50 DM, Diskette 


23,50 DM, Bestell-Nr. © 81 


Projekt/Datenbank, Kassette 16,- DM, 
Diskette 23,50 DM, Bestell-Nr. C 91 


Spiders/The Basic, Kassette 16,50, Dis- 
kette 23,50 DM, Bestell-Nr. G 101 


Compure mib 


High Noon/Skeet/Grafik-Designer, Kas- 
sette 17,50 DM, Diskette 23,50 DM, Be- 
stell-Nr. C 121 


Painter/Star-Baddle/Editor, Kassette 
17,50 DM, Diskette 23,50 DM, Bestell-Nr. 
22 

Wüstenralty/Jlet-Pac/Black Moore Castle, 
Kassette 17,50 DM, Diskette 23,50 DM, 
Bestell-Nr. G 32 


Brieftaube/Gadelon, Kassette 19,50 DM, 


Diskette 24,50 DM, Bestell-Nr. C 42 


Ritter Erik/Grand Prix Spritehilfe, Kassette 
19,50 DM, Diskette 24,50 DM, Bestell-Nr. 
52 


Multi-Key/S-Tool 64/Interrupt-Program- 
me, Kassette 16,- DM, Diskette 21,- DM, 
Bestell-Nr. UC 2/85 


Spritehilfe/Diskloader/Directory, Diskette 
21,- DM, Bestell-Nr. UC 3.1/85 


Tape-Directory/Asmon/Data-Generator, 
Kassette 15,- DM, Diskette 21,- DM, Be- 
steli-Nr. UC 3.2/85 


Fast Load, Kassette 10,- DM, Bestell-Nr. 
UC 4/84 


Diskmonitor/Zeichensatz, Diskette 20,- 
DM, Bestell-Nr. UC 5/85 


Reassembfer/Maskengenerator Kassette 
15,- DM, Diskette 20,- DM, Bestell- Br UC 
6/85 


Dei 64/Treiberprogramm für 1526/MPS 
802 Decelevator, Kassette 14,- DM, Dis- 
kette 19,- DM, Bestell-Nr. UC 7/85 


Supertapedirectory/Renew/Kontrollabfra- 
ge, Kassette 15,- DM, Bestell-Nr. UC 8/85 


Reactor/Goncentration/Datenbank, Kas- 
sette 17,50 DM, Diskette 23,50 DM, Be- 
stell-Nr. HG/G-1 


Warlords/Caverns of Death, Kassette 
14,50 DM, Diskette 19,50 DM, Bestell-Nr. 
HC/C-2 


Alien-Destroyer/Duell, Kassette 24,50 
DM, Diskette 29,50 DM, Bestell-Nr. 
HC/G-3 

Ocean Game/Tennis, Kassette 17,50 DM, 
Diskette 23,50 DM, Bestell-Nr. HC/G-4 


The Caves, Kassette 17,50 DM, Diskette 
23,50 DM, Bestell-Nr. HG/C-5 





"NEVER \ EORGETS" 





Speichern und Drucken. Fehlerlos. Mit 100% Sicherheit: 
das ist Elephant Memory Systems'" 
Unter diesem Markennamen erhalten Sie hochwertiges Zubehör 
für perfekt arbeitende Kommunikations Systeme der Text- 
und Datenverarbeitung — wie Disketten, Farbbänder, Farbband- 
kassetten und Spezialreinigungsmittel. . 
Kompromiß ist Risiko. Zweite Wahl ist Unsicherheit — deshalb: 
verlangen Sie Elephant Memory Systems’, N 


ı ELEPHANT NEVER FORGETS. 


MARCOM Computerzubehör GmbH 
 Foubielskistraße 321, 3000 Hannover 51, Tel, 0511} 6474.20 
Frankreich: Soraclass, B, Rue Montgolfier « 93115, Ansny-Sous-Bais, lel.: 16 (1) 8655-73-70 
Eraßhritannlen: Dennison Mig. Co. Ltd., Goloniai Way, Watford WD2 AUY. Tel. 0923 41244, Telex: 923321 
Italien: King mec s.p.a. - Via Regio Parco 108 - 10056 Settimo Torines® ABpe 
Weiteres Ausland: Dennison International Company, AQOB Erkrath 1, Matthias-Glaudius-Straße 9, Telex: 858 6600 
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